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informatique et musique 

EXL. 100 reportage dans une école 

banc d'essai: ATI 42 

réalisez des cartes d'extension pour votre EXL 100 



EDITO 

Musique et informatique 



A l'heure actuelle, les 

ordinateurs dits musicaux 
occupent une place de choix 
dans l'univers du musicien 
professionnel, ou amateur. Et 
oui, les octets remplacent peu 
à peu les guitares, pianos et 
autres instruments. Comment 
cela est-il possible ? 
Simplement par la 

numérisation ou la 

digitalisation des sons. Si ces 
termes vous semblent 
barbares, les techniques 
employées pour arriver au 
résultat désiré, à savoir 
restituer le timbre d'un 
instrument, ne le sont pas 
moins. Et, pour cette raison, 
nous ne les aborderons pas. 

L'informatique au 

service du musicien 
amateur. 

Si vous n'êtes pas un amateur 
éclairé de la musique, les 
ordinateurs musicaux ( 
ordinateur + logiciel 
spécifique ) n'auront aucun 
intérêt pour vous, sauf si 
vous désirez jouer de la 
musique sans investir du 
temps à l'apprentissage du 
solfège, et d'une technique 
instrumentale. En effet, il est 
possible avec un ordinateur de 
jouer une fugue de Bach, sans 
jamais avoir appris une seule 
note. Votre travail consistera à 
copier note à note une 
partition en utilisant un 
logiciel spécifique. Mais, ces 
logiciels coûtent chers, 
surtout si vous désirez avoir 
une qualité d'exécution 
proche de la réalité, et de 
plus, ils ne sont pas 
disponibles, loin s'en faut, 
sur toutes les machines. Alors 
que reste-t-il au pauvre 
malheureux acheteur qui 



croyait posséder en la 
personne de son EXL 100 un 
exécutant de la qualité d'un 
Weissemberg ou autre ? Pas 
mal de choses si l'on 
considère le besoin moyen 
des utilisateurs de micro- 
ordinateurs domestiques pour 
ce qui concerne la musique. 

Il se peut que vous soyez un 
novice en musique. De ce fait, 
vous pouvez utiliser votre 
EXL 100 comme un répétiteur 
de musique. Les logiciels 
MUSIQUE1 et MUSIQUE2 
ont comme fonction principale 
la dictée musicale, et ils vous 
apprendront les différentes 
notes et leurs emplacements 
sur la portée en fonction de la 
clé utilisée ( clé de sol ou clé 
de fa ). Ces logiciels 
constituent un bon 

investissement de base pour la 
personne qui désire s'initier 
au solfège. Et puis, avouons- 
le, il est plus amusant 
d'apprendre le solfège sur un 
ordinateur, plutôt que de 
passer par le circuit 
traditionnel. ( professeur de 
musique, conservatoire et la 
méthode rose en cadeau ) . 

Une fois que vous aurez fait 
vos premiers pas dans le 
monde de la musique, il se 
peut que vous ayez quelques 
velléités de création musicale. 
Deux solutions s'offrent à 
vous. Apprendre une 

technique instrumentale ou 
utiliser l'ordinateur. La 
première solution est de loin 
celle qui vous coûtera le plus 
de temps. Apprendre un 
instrument n'est pas chose 
facile, et de plus, 
l'apprentissage sur un 
instrument quelconque est un 
travail ingrat pour l'exécutant 



, et un véritable supplice pour 
les voisins. Le logiciel REMI 
sur EXL 100 permet la 
création de lignes mélodiques. 
Ces lignes mélodiques 
peuvent être ensuite intégrées 
dans un programme BASIC. 
Ce générateur de mélodies 
vous permet de jouer sur 3 
octaves et une voie. L'EXL 
100 ne permet la génération 
de notes que sur une seule 
voie. Mais, il est possible en 
utilisant le bus domestique de 
coupler un circuit imprimé 
spécialisé dans le traitement 
des informations musicales, 
permettant ainsi le génération 
de notes sur 5 ou 6 octaves et 
ce sur 6 voies ou plus. Ces 
circuits tianforment alors 
votre EXL 100 en véritable 
synthétiseur musical. 





Si vous êtes un pro ou un 
semi-pro de la musique, votre 
EXL 100 ne pourra pas vous 
être utile à grand chose, sauf 
si vous utilisez Exeldrums. 
Un petit mot sur Exeldrums. 
Cette boîte à rythmes est 
actuellement en promotion à 
690, 00 Frs chez vos 
revendeurs. Pour ce prix là, 
vous avez une boîte à rythmes 
de qualité professionnelle . La 
revue SONO spécialisée dans 
les techniques sonores a 
publié au mois de septembre 
1985, un banc d'essai 
élogieux sur Drums. Etant 
musicien à mes moments 
perdus, j'utilise Drums dans 
toutes les parties percussions 
en studio d'enregistrement 
pour la réalisation d'indicatifs 
ou de chansons. Sa facilité 
d'emploi permet une 
utilisation très souple. A part 
Exeldrums, les logiciels 
professionnels de musique 
n'existent pas sur EXL 100. 



MIDI ou 

standardisation réussie 



la 



Il reste un aspect des choses à 
analyser. Un ordinateur peut 
être utilisé pour contrôler des 
synthétiseurs, des boîtes à 



rythmes, ou des séquenceurs. 
Cette particularité des 
ordinateurs n'est apparue que 
ces deux dernières années. En 
effet, les constructeurs 

mondiaux de matériel de 
musique ont décidé, il y a un 
peu plus de deux ans, 
d'équiper tous les instruments 
de musique électronique 
d'une interface. Cette 
interface MIDI ( Musical 
Interface for Digital 
Instruments) permet de faire 
communiquer tous les 
intruments qui en sont 
pourvus. De cette façon, un 
synthétiseur de marque 
YAMAHA peut émuler un 
clavier ROLAND, et vice 
versa. Cette interface permet 
d'adapter des périphériques 
aux instruments que vous 
possédez et donc d'étendre et 
ce, à moindre frais, votre 
synthétiseur. Il est regrettable 
que les constructeurs 
d'ordinateurs, n'imitent pas 
leurs collègues en adoptant un 
standard unique, pour le plus 
grand profit des utilisateurs. 
Mais bien souvent, le profit 
des utilisateurs ne rime pas 
avec le profit des 
constructeurs. 

De ce fait, la musique est 

devenue pratiquement une 
affaire d'ordinateurs et de 
gros sous. La qualité de 
l'instrumentiste importe peu, 
les ordinateurs suppléent à la 
médiocrité. Certes, les artistes 
de variétés célèbres utilisent 
des ordinateurs sur scène 
pour recréer le son que l'on 
ne pouvait jadis qu'obtenir en 
studio d'enregistrement, et à 
grands frais. Mais ne rêvez 
pas, pour avoir l'illusion de 
ressemblez à Jean-Jacques 
Goldman ou Michel Berger, il 
vous faudra dégager un 
budget d'au moins cent mille 
francs, ce qui n'est pas à la 
portée de Monsieur tout le 
monde. 

Si vous posez la question 
piège: Pourquoi l'EXL 100 ne 
possède pas d'interface MIDI 
?,Nous pouvons répondre du 



tac au tac: Saviez-vous qu'une 
telle interface existait et 
connaissiez-vous son rôle ? 
En fait, l'interface MIDI est 
destinée aux professionnels 
de la musique ( Certes des 
amateurs l'utilisent, mais son 
utilité réelle se situent au 
niveau de la scène et du studio 
d'enregistrement ). 

Néanmoins il est possible de 
construire une interface MIDI 
et de l'adapter sur un EXL 
100. Jean Claude Repetto 
nous proposera dans un 
prochain numéro le schéma de 
montage de cette interface. Le 
coût de cette dernière est de 
l'ordre de 100 francs environ. 
Nous prévoyons même la 
possibilité d'interfacer un 
circuit spécialisé pour la 
création musicale si la 
demande des utilisateurs 
d'EXL 100 est importante. 




L'avenir des ordinateurs 
musicaux 

La dernière heure des 
instruments conventionnels a - 
t-elle sonné ? A l'heure 
actuelle, NON. Loin s'en 
faut. Si l'ordinateur est 
accepté par de plus en plus de 
personnes, il semble illusoire 
d'imaginer que l'on jouera à 
Playel le concerto numéro 21 
de W. A. Mozart pour 
ordinateur et séquenceur. ( 
Les vieilles barbes 

attraperaient un infarctus) . 
Toutefois, il n'est pas 
impossible de penser que 
l'apprentissage de la musique 
soit réalisé dans les classes 
primaires avec des 

ordinateurs. Pour ce qui 
concerne l'aspect visuel d'une 
représentation musicale, voir 
une personne tapoter du bout 
des doigts sur un clavier 
d'ordinateur n'est guère 

spectaculaire , et donc voué à 
l'échec. Seuls les studios 
d'enregistrement sont en 
mesure de travailler avec des 
ordinateurs pour fabriquer en 
secret le "son" du dernier 
album de "DIRE STRAITS", 
ou de PHIL COLLINS. Les 



créateurs de sons trouvent 
dans l'ordinateur l'instrument 
idéal pour forger de nouvelles 
sonorités. La grande 
révolution de l'informatique 
musicale c'est le sampler, ou 
l'échantilloneur, qui permet 
d'analyser, et donc de 
reproduire une quelconque 
sonorité. Du bruit d'une 
motocyclette, aux ondes 
délicates d'une flûte de Pan, 
l'échantilloneur ouvre la porte 
aux pionners des nouvelles 
sonorités. 

Nouvelles brèves 

Dernier numéro d'Exelement 
vôtre: La direction 

d'Exelvision a décidé que le 
dernier numéro d'Exelement 
vôtre sera le numéro 15. Pour 
cette raison, le bulletin 
habituel d'abonnement est 
supprimé au profit d'un 
bulletin de souscription qui 
permettra aux lecteurs ne 
possédant pas les premiers 
numéros d'EV de se les 
procurer. Pourquoi cette 
décision a-t-elle été prise? 
Ce n'est un secret pour 
personne que nous nous 
orientons vers un service 
télématique. En effet, nous 




serons en mesure dès le mois 
d'octobre 1986 de proposer à 
nos lecteurs et aux acheteurs 
de matériel Exelvision, une 
revue télématique. En 
conséquence de quoi, il 
semble absurde de continuer 
la revue sur support papier. 
Cette dernière continuera 
jusqu'au mois de Mai 1987 
pour assurer la transition. De 
plus, dans une certaine 
mesure, la revue Exelement 
vôtre sera un corollaire du 
service télématique. Surtout, 
ne croyez pas que cette revue 
soit arrêtée par manque 
d'abonnés, non, nous 
enregistrons plus de quatre 
mille abonnés. Mais, il est de 
plus en plus difficile pour une 
seule personne de pouvoir 
concevoir, écrire, mettre en 
page la revue. Soucieux de la 
qualité à apporter à nos 
produits, nous préférons 
passer la main à d'autres 
confrères qui se chargeront de 
distribuer et écrire une 
nouvelle revue. Cette dernière 
ne portera plus le nom 
d'Exelement Vôtre, et sera 
distribuée dans les kiosques. 

Exelclub. LExelclub 

change de locaux et offre 

maintenant un service de 
formation. Les nouveaux 
locaux sont situés 40 Rue 
Davy, 75017 Paris. Tel 16/ 1 
42298001. Les possesseurs 
de matériel Exelvision 
pourront se perfectionner, ou 
apprendre à manipuler le 
matériel. Ah, les heures de 
fonctionnement du club sont 
de lOh à 20h, tous les jours. 

Exeltexte sur disquettes 

Les possesseurs de l'unité de 
disquettes EXL 135 ont du 
rencontrerquelques difficultés 
pour sauvegarder leurs textes 
créés à partir d'Exeltexte. En 
effet, la version de base 
d'Exeltexte n'est pas prévue 
pour fonctionner avec l'unité 
de disquettes. Toutefois, une 
version actualisée sur 
disquettes est envoyée contre 
la cartouche ROM. Si vous 



désirez obtenir la version 
disquette du logiciel 
Exeltexte, renvoyez votre 
cartouche ROM à Exelvision, 
Place Joseph Bermond, 
immeuble Ophira, 06560. 

Schéma de l'interface 
magnétophone 

Dans le dernier numéro 
d'Exelement Vôtre, nous 
avons publié le schéma de 
l'interface magnétophone 
dans une échelle plus petite 
que 1. Nous vous demandons 
de nous excuser. Vous 
trouverez dans ce numéro le 
schéma à l'échelle exacte. Les 
deux schémas recto et verso 
de l'interface sont publiés sur 
une page entière. En effet, il 
est possible grâce à une 
bombe de produit spécial de 
rendre le papier non imprimé 
transparent. Ceci permet de 
réaliser directement la plaque 
de montage. 

Note aux écoles 



Existe-t-il une solution moins 
coûteuse que le Nanoréseau 
LEANORD ( 64 000,00 Frs) 
pour équiper six postes de 
travail dans une classe ? 
Oui!!! 

Il est possible d'associer un 
EXL 100 (+ MODEM+ 
EXELMEMOIRE) connecté 
au réseau télé tel, à un 
ensemble de postes de travail 
( EXL 100 en version 
standard). En outre, le 
système que nous décrivons 
ci-après permet de charger 7 
EXL 100 à partir d'un seul 
magnétophone. 

Dans un premier temps ce 
dispositif permet à partir du 
poste maître de télécharger un 
logiciel disponible sur le 
centre serveur Exelvision, et 
de le stocker sur 
Exel mémoire. 

Dans un second temps, le 
logiciel stocké dans 

l'Exel mémoire peut être 
distribué via les interfaces 



cassettes des différents EXL 
100. 

Plus précisément, les 
différentes manipulations sont 
les suivantes: 
-Téléchargement logiciel 
-Mise en place de ta cartouche 
BASIC sur le poste maître 
-Chargement dans la mémoire 
de ce dernier du logiciel 
précédement téléchargé 
-Mise en attente des postes 
esclaves en vue du 
chargement de ceux-ci: 
-A partir d'un seul clavier on 
frappe l'ordre LOAD'T' [ 
ENVOI] suivi de l'appui sur 
[ESC]. 

-Sur le poste maître frappez 
l'ordre SAVE "l.PROG" 
[ENVOI ] puis [ESC] 



A partir de cet instant le 
programme transite du poste 
maître vers les postes 
esclaves. Bien évidemment le 
poste maître peut servir de 
poste de travail, ce qui 
optimise l'utilisation des EXL 
100 mis en jeu. Les 
mauvaises langues diront que 
le processus prend autant de 
temps que le chargement 
d'une cassette, l'avantage est 
que l'investissement en 
matériel de gestion des postes 
esclaves et de connectique est 
très faible voir nul. ( 
Signalons pour mémoire que 
le coût des câbles pour 
l'installation d'un nanoréseau 
est de l'ordre de 16 000 
Francs ). Voici le schéma de 
raccordement des EXL 100 
esclaves à l'EXL 100 maître: 
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De la même manière, et en 
vue d'économiser temps et 
cassettes,il est possible de 
charger plusieurs EXL 100 à 
partir d'un seul 

magnétophone ( bien réglé ). 
11 devient donc inutile de 
charger les postes l'un après 
l'autre, ou de dupliquer les 
cassettes originales. Le 
schéma du câble qui relie le 
magnétophone aux différents 
EXL 100 devient : ( Voir page 
précédente ) 

Ce dernier dispositif a été 
testé positivement avec sept 
EXL 100 à partir d'une 
cassette commercialisée, et 
donc dupliquée de façon 
industrielle. 

En conclusion, cette ébauche 
de réseau rendra bien des 
services aux instituteurs, et 
ce, à un prix défiant toute 
concurrence: Possibilité 

d'envoyer depuis le poste 
maître un logiciel à un, ou 
plusieurs postes esclaves, et 
inversement, transférer un 
programme d'un poste 
esclave en direction du poste 
maître. 




L 'école de Jules Ferry et l'ordinateur font- 
ils bon ménage ? 



Nous sommes partis ce matin 
pour rencontrer un directeur 
d'école qui a reçu de 
l'Education Nationale la 
dotation Exelvision ( 1 EXL 
100, 1 imprimante, 1 modem, 
et des broutilles ). Le choix de 
ce directeur d'école n'est pas 
du au- hasard. Non, pas du 
tout, Nicolas, ingénieur 
technico-commercial, un beau 
matin m'a déclaré: "Je connais 
un instit qui utilise 5 EXL 100 
dans sa classe." 
Bigre, fantastique. 5 EXL 
100 pour une classe, c'est du 
jamais vu. Je tenais vraiment 
à me rendre compte de 
l'exploit, et rendez-vous pris, 
nous voilà partis pour l'école. 



L'école de Castagniers les 
Moulins située à la périphérie 
de Nice est une école dans le 
plus pur style laïque. Bâtisse 
solide, n'ayant rien à voir 
avec les préfabriqués 
modernes. Le directeur et 
instituteur de l'école, 
Monsieur Caréna nous 
accueuille dans son fief. 
Méridional, cela s'entend à 
l'accent qui chante, il nous 
invite à le suivre dans la 
classe des grands. C'est une 
petite école, d'environ 70 
élèves. Monsieur Caréna 
dirige une classe triple les 
CE2, CM1, et CM2. Nous 
entrons dans la classe, et là, 
bien rangés sur des plans de 



travail construits 

artisanalement trônent 5 EXL 
100. 

Image folle en fait que celle de 
Jules Ferry cohabitant avec 
celle de Bob Noyce ( 
inventeur du 

microprocesseur). D'un côté 
l'aspect vieillot, presque 
suranné de cette classe: 
l'immense tableau noir, les 
cartes de géographie colorées, 
les chefs-d'oeuvre des enfants 
qui ornent les mûrs laiteux, et 
d'un autre côté, une rangée de 
micro-ordinateurs. En fait ça 
n'a pas beaucoup changé 
depuis que j'ai quitté ta 
communale, à part que les 




financé l'achat. Mais la 
grande astuce de Monsieur 
Caréna c'est de se servir des 5 
EXL 100 comme d'un réseau. 
En effet, un EXL 100 sert de 
serveur. Quatre EXL 100 sont 
esclaves. Le processus 
fonctionne très bien, et de 
cette manière, il peut faire 
travailler 5 élèves à chaque 
cession. 

Ce matin même nous 
essayons de charger 6 EXL 
100 avec un EXL 100. 
Réussite totale. 7 EXL 100 
peuvent être mis en réseau. 
Comment réagissent les 
élèves à l'enseignement 
assisté par ordinateur ? Ils 
adorent ce système, mais en 
fait, l'ordinateur ne peut 



micros, l'on n'en avait jamais 
entendu parlé, et que les seuls 
ordinateurs que l'on 

connaissait, c'étaient ceux qui 
illustraient les Strange ou 
autres Cpt America. Tempus 
fugit. Non pas que je me 
sente âgé comme 

Mathusalem, mais le monde a 
bien changé depuis 68 ( date 
de mon CM2, que les lecteurs 
se rassurent.). 

Nous entrons dans le vif du 
sujet. Comment se fait-il 
qu'une si petite école sou en 
possession de 5 EXL 100? 
Monsieur Caréna nous 
explique qu'il a profité d'une 
solde exceptionnelle sur le 
matériel et sur les moniteurs. 
La mairie a bien entendu 





servir que comme support aux 
révisions, ou au contrôle des 
connaissances, 

l'enseignement étant réalisé de 
façon traditionnelle. 

Dans cette classe l'EXL 100 
est utilisé uniquement comme 
support pour les logiciels 
pédagogiques. Monsieur 

Caréna et son adjoint 
Monsieur Michelis 

n'enseignent pas la 

programmation à leurs élèves. 
Pourquoi? Ils n'ont pas été 
formés. Monsieur Caréna a 
bénéficié d'une semaine de 
formation en tout en pour tout 
sur TI 99 4A ( offert par le 
conseil régional de la côte 
d'azur ), quant à Monsieur 



Michelis, il n'a bénéficié I 
d'aucune formation. Cet état 
de fait ne doit pas être unique 
dans l'hexagone, et on est en 
droit de se poser une légitime 
question. Est-il raisonnable de 
dépenser des millions de 
francs dans des machines 
sans apporter la formation aux 
cadres qui doivent utiliser ces 
machine ? Le fait de ne pas 
maîtriser parfaitement les 
de 



programmation n'empêchent 
pas nos deux instituteurs de 
déployer un dynamisme des 
plus vivifiant pour ce qui 
concerne les nouvelles 
méthodes d'enseignement. 
Ils croyent fermement à 
l'EAO. L'EAO c'est une autre 
façon d'aborder les différents 
sujets de l'enseignement. 
Avant de se quitter Monsieur 
Caréna et Monsieur Michelis 
nous confiaient qu'ils 



envisageaient de passer à 10 
le nombre d'EXL 100 de leur 
mini réseau. Gageons que 
cette bonne volonté de faire 
progresser l'EAO fasse des 
émules. N'oublions pas que 
derrière l'EAO se cache un 
pari fantastique: Former nos 
enfants aux tecniques de l'an 
2000. N'oublions pas que les 
enjeux économiques de 
demain seront gagnés par nos 
enfants, alors donnons leurs 
tous les atouts pour réussir. 



SIMULATEUR DE VOL ATI 42 



Qui n'a pas rêvé piloter un 
avion confortablement 

installé dans son fauteuil 
devant son écran de 
télévision. Tout cela vous le 
découvrirez en achetant le 
logiciel de Minipuce "ATI 
42". Ce logiciel comme vous 
le devinez est un logiciel de 
type simulateur de vol. Alors, 
prêt , en avant pour le banc 
d'essai. 

Présentation 

Livré dans un traditionnel étui 
du format vidéocassette, le 
logiciel ATI 42 n'est pas 
prodigue en documentation. 
Mais néanmoins, l'éditeur a 
pris soin de glisser à 
l'intérieur de la boîte ( noire ) 
une petite notice explicative de 
8 pages. Bref après avoir lu la 
brochure vous êtes en mesure 
de piloter un avion de 
transport. 

But du jeu 

Loin des sentiers rebattus ( du 
genre fighter pilot, cobra 
lynx, j'en passe ), l'approche 
de ce logiciel est tout à fait 
différente. Vous êtes pilote 
d'un bi-moteur, "l'ATI 42", 
et votre mission consiste à 
transporter des passagers sur 
le territoire français. 
Le constructeur nous livre les 
caractéristiques de l'ATI 42. 
Pour les novices du 
simulateur de vol, sachez 




justement qu'un simulateur de 
vol doit respecter les 
caractéristiques techniques de 
l'appareil. Cette fois-ci vous 
n'êtes pas assis dans un 
mirage, mais dans un honnête 
avion de transport. 



L'ATI 42 est un avion de 
transport bi-moteur propulsé 
par des moteurs de 1 800 
chevaux, et pouvant emporter 
50 passagers. Sa vitesse de 
décolage est de 120 noeuds, 
sa vitesse d'atterrissage est de 




150 noeuds, la vitesse 

ascensionnelle d'atterrissage 
estde-2,00ms-l. 

Si vous vous sentez pousser 
des ailes c'est bon signe. 

Le poste de pilotage 

Le poste de pilotage est 
composé de cinq parties 
distinctes. 

-La vision du pilote 

-Le radar de navigation 

-La direction et la force du 

vent 

-Tableau de bord 

-Plan de vol 

La vision du pilote: 

Elle est réduite, mais suggère 
néanmoins certains éléments, 
notamment la piste 

d'atterrissage. Cette partie 
montre aussi la ligne 
d'horizon ( ou l'horizon 
artificiel ). 

Le radar de navigation: 

Cette fonction est très utile, et 
permet de suivre la route de 
l'appareil, et indique les 
différents terrains 

d'atterrissage. De plus 
lorsque l'avion entre dans la 
zone d'un aéroport, le premier 
plan est remplacé par un 
système d'atterrissage 



automatique ( radar 

d'approche ), permettant au 
pilote amateur de centrer son 
appareil. 



La direction et la 
du vent: 



force 



Deux voyants pour indiquer la 
force et le sens du vent. 



-Becs 

-Aérofreins 

-Freins 

-Systèmed'approche 

automatique 

-Chronomètre 

Tout ce qui se trouve dessous 

les sept voyants renseignent le 

pilote, sur: 

La vitessse de l'avion 

Le nombre de tours du moteur 

La vitesse ascensionnelle 

Le cap 

L'inclinaison 

Le roulis 

Tout ce qui est nécessaire 

pour piloter un appareil est 

indiqué. 

Premier contact 

Autant vous dire que des 
simulateurs j'en ai essayé un 
max. Je me suis dis encore 
une m... à tester comme 
d'habitude. J'attendais donc 
la fin du chargement l'esprit 
en éveil à la moindre faute, et 
emprunt de la joyeuse 
humeur du lundi matin ( tell 
me why I don't like 
mondays). Et alors là, 




Le tableau de bord 

Le tableau de bord renseigne 
le pilote sur tous les éléments 
essentiels. Une première 
rangée de voyants indique 
l'état de l'appareil. 

-Train d'atterrissage 
-Volets 



miracle, ce simulateur m'a 
plutôt détendu. En effet, il est 
agréable de s'évader un tant 
soit peu, par la magie d'un 
écran, d'un bureau trop étroit 
, même si l'on habite la côte 
d'azur, même si l'on travaille 
à Sophia Antipolis, et même 
si le soleil est au rendez-vous. 
C'est sûr, ça ne supporte pas 



la comparaison avec un Flight 
Simulator II d'IBM, mais 
c'est très honnête pour le 
rapport qualité prix. Les 
commandes sont un peu 
lentes, mais le but du jeu est 
d'apprendre à piloter un 
appareil, et non à courser le 
Soviet , ou le Yankee dans les 
cieux azurés, et radioactifs de 
notre Europe occidentale. 
Côté décolage, je me 
débrouille pas mal, et donc 
j'ai réussi à enlever l'appareil 
de la piste. Ah ça c'est 
toujours un pied que de voir 
la piste séloigncr et l'horizon 
s'approcher. J'ai choisi de 
rallier Paris Roissy à Paris 
Orly. 42 Km, pas de vent, la 
ballade en somme. Ouais, il 



faut le dire vite. Si vous êtes 
capable de vous orienter sur 
un carte, vous n'aurez aucun 
problème. Personnellement 
j'aurai des problèmes pour 
trouver la route qui va de Nice 
à Paris. Toujours est-il que 
bien installé à 6 000 pieds, je 
tourne, je tourne, jusqu'à ce 
que mon radar d'approche me 
signale la piste. Alors 
commence la difficulté. Et 
oui, il faut descendre, oui, 
mais pas trop vite. Il faut 
garder une assiette correcte, 
réduire les gaz, mais pas trop, 
adopter une bonne vitesse, 
tenir le bon cap. Oui, ca y est 
presque, je vois la piste 
devant moi. L'indicateur 
d'atterrissage IFR, les 



voyants 6 et 7 m'indiquent un 
peu plus haut, un peu plus à 
droite. Marrant le mec qui a 
programmé ce jeu, sorti de ma 
Ford Fiesta j'ai du mal à 
assimiler. Boom. L'écran 
devient rouge. Point n'est 
besoin de message pour 
comprendre que si j'avais 
cinquante personnes à mon 
bord, on aurai installé une 
chapelle ardente. 
N'empêche que j'ai joué deux 
heures. Un conseil, achtetez 
ATI 42. Vous saurez une fois 
dans votre vie, ce que c'est 
que d'être pilote de ligne 
intérieur. 

ATI 42 Editions Minipuce 
Prix 200 Francs environ 



INITIATION NIVEAU 
1 



Nous aborderons 

principalement les fichiers 
relatifs dans cette rubrique 
intiation. En effet, dans le 
dernier numéro, les fichiers 
séquentiels avaient été traités. 
Attention, les fichiers relatifs 
qui sont beaucoup plus 
pratiques d'utilisation que les 
fichiers séquentiels ne sont 
disponibles que sur 

l'Exelmémoire et l'unité de 
disquettes. 

Généralités 

Dans le dernier numéro 
d'EV, nous avions défini les 
fichiers comme des classeurs. 
Chaque feuille correspondait à 
un enregistrement, et la 
lecture et l'écriture dans ce 
fichier se faisaient 

séquentiellement, c'est-à-dire, 
que les enregistrements étaient 
écrits ou lus toujours dans le 
même ordre. 

Schématiquement, si vous 
voulez lire le 12 eme 
enregistrement ( lire la 
douzième page du classeur) , 
il faut lire les 1 1 premiers 




enregistrements, ou, en 

imageant un peu plus, si vous 
voulez ouvrir votre classeur 
directement à la 1 2 ^ me page, 
vous ne le pouvez pas, vous 
devez obligatoirement tourner 
les onze premières pages. A 



'opposé, un fichier 

"RELATIF" peut être 
considéré comme un classeur 
équipé d'onglets pour repérer 
chaque page; et ainsi, on 
pourra ouvrir le classeur à la 
page désirée. Reprenons 




l'exemple énoncé ci-dessus. 
Si vous désirez ouvrir votre 
classeur à la 12 eme page, 
vous n'aurez qu'à repérer la 
page en lisant les onglets et à 
ouvrir le classeur directement 
à l'endroit voulu. 

Différence entre les 
fichiers séquentiels et 
les fichiers relatifs. 

Il existe des différences 
notoires entre ces deux types 
de fichiers. Nous allons les 
analyser en fonction de leur 
apparition dans les procédures 
d'ouverture / d'écriture / de 
lecture et de fermeture d'un 
fichier. Mais avant tout, la 
grande différence entre un 
fichier séquentiel et un fichier 
relatif réside dans la façon 
d'accéder aux 

enregistrements. En effet, 
chaque enregistrement est 
repéré par un numéro. 
En fonction de ce numéro 
d'enregistrement, beaucoup 
des procédures qui étaient 
obligatoires avec les fichiers 
séquentiels deviennentinutiles 
avec les fichiers relatifs. C'est 
notamment le cas lorsque 
l'utilisateur souhaite une mise 
à jour du fichier séquentiel. 

10 



Nous verrons ce genre de 
manipulation dans un 
prochain numéro. Examinons 
une à une les différences 
d'écriture entre les fichiers 
séquentiels et les fichiers 
relatifs. 

Ouverture d'un fichier 
relatif 

OPEN #1, "lOO.nom de 
fichier", RELATIVE, 

mode d'ouverture 

Tout comme pour les fichiers 
séquentiels, l'ouverture d'un 
fichier relatif ne diffère 
qu'avec l'ajout du terme 
RELATIVE". Pour les 
autres termes, rien de très 
différent. ( cf EV 9 ). Dès que 
le CROS ( système 
d'exploitation de 

l'Exelmémoire ) ou le DOS ( 
système d'exploitation du 
lecteur de disquettes) 
rencontre ce terme, ces 
derniers "comprennent" que le 
fichier sera une fichier relatif. 
Ceci entraînera une 

organisation physique du 
fichier différente d'une 
organisation séquentielle. 
Deux octets seront réservés 
pour écrire le numéro 



d'enregistrement avant 

l'enregistrement même. 

I enregistrement 

1+1 enregistrement 
1+2 enregistrement 

Ecriture d'un fichier 
"RELATIF" 

Une fois le fichier relatif 
ouvert, vous pouvez spécifier 
le numéro d'enregistrement. 
Ceci se réalise grâce à 
l'écriture du terme REC suivi 
d'un nombre qui peut être 
compris entre et 32768 { 
2 à puissance 15 ). Si le terme 
REC est omis, le premier 
enregistrement portera le 
numéro zéro. Nous allons 
prendre l'exemple d'un fichier 
adresse pour un particulier. 



Chaque client possède 
généralement un numéro 
d'enregistrement. En fonction 
du volume de clientèle de 
l'entreprise, ce numéro pourra 
être écrit sur 2 ou 3 chiffres. 
Chaque fiche client 

supportera: le nom, le 
prénom, l'adresse, le code 
postal, la ville et une rubrique 
divers. Grâce au fichier 
relatif, il sera possible de 
pointer sur la bonne fiche, 
uniquement en précisant le 
numéro d'enregistrement 

Le programme BASIC 1.1 
crée un fichier relatif en mode 
lecture / écriture. Mais ce 
dernier est plus 

particulièrement destiné à 
l'écriture des différentes 
données dans un 

enregistrement. Remarquez 
qu'à la ligne 140, lors de la 
procédure d'ouverture du 
fichier, on a précisé 
"RELATIVE". Les lignes 
150 à 200 constituent la 
saisie des informations. La 
ligne 210 demande le numéro 
d'enregistrement que l'on 
déclare comme la variable NE 
. A la ligne 230, on teste si la 
variable NE, autrement dit, le 



ioo '«mmiwnnflusfluaflansntiaîianatnitiiiiaiiBiiti 

110 IB FIC REL ECRITURE B 

1 20 ' nnnnnflflanflnnflttBtiiîBDnaaiiaiiiiBiitifljinaitn 

130 CLS 

140 OF'EN M, "2, ADRESSE. FIC", RELATIVE, QUTPUT 

1» CLS:LOCATE (8,3):PRINT "N ENREGISTREMENT : "; 

160 ACCEPT EEEP VALIOATE(NUHERIC)SIZE(3)NULL(0).NE 

170 IF NE=0 THEN 260 

180 LOCATE <10.3):INPL)T "NOM : ";N* 

190 LOCATE (12.3>:INPUT "PRENOM : ";P* 

200 LOCATE f14.3):INPUT "ADRESSE : ":Ai 

210 LXATE (16.3):INPUT "CODE POSTAL : ";CPt 

220 LOCATE (18,3):IWUT "VILLE : ":VI 

230 LOCATE '20,3Î :INPUT "DIUERS : ":Dt 

240 f'RINT (M.REC NE,W: M T ";M:",";A»:".";CP*;",";^: 

250 GOTO 150 

260 CLOSE B1 



Lions UO t Prucadurs d'ouwartur^ 

Liones 150-160 : Introduction du nouera d tnrto.i3t"m-nt 

[3 chiffras mxi*J Jfltroduir-j id vaL'ur l- pc» 
du pioùrawmc 

Lionjs 170 : Tjst sur la valjur du nuauro 

Lignes 130-230 : Saisit des informations 
Lion? 240 ■ Eencur; de I '•jfirsgistfasent 
Ligne 250 : Renvoi s là ligne 150 
Lior = 260 : F irmcur--} tfu fichier 



numéro d'enregistrement, est 
égale à 0. Si NE est égal à 
zéro, le fichier sera fermé. La 
ligne 240 écrit dans 
l'enregistrement spécifié par 
NE, les données concaténées: 
Le nom, le prénom, l'adresse, 
le code postal, la ville sont 
écrits dans le même 
enregistrement. La ligne 250 
renvoie le programme à la 
ligne 150, ce qui permet de 
saisir une autre adresse. Pour 
arrêter la saisie, il suffit de ne 
pas taper de caractères lors de 
l'introduction du nom ( ligne 
170 ). Tout comme pour les 
fichiers séquentiels, le fichier 
doit être fermé après avoir 
écrit le dernier enregistrement. 
( ligne 260 ). 

Le programme BASIC 1.2 , 
destiné à lire le fichier créé par 
le programme 1.1, peut au 



premier abord, paraître plus 
compliqué que son 

homologue . En effet, nous 
trouvons dans le programme 
des instructions que, peut- 
être, vous n'avez pas 
l'habitude de rencontrer. Ces 
instructions particulières qui 
sont ON WARNING et 
ON ERROR seront discutés 
dans la partie initiation niveau 
2 de la revue. Pour l'instant, 
nous ne nous préoccuperons 
pas de ces instructions 
chargées de gérer les erreurs. 
La ligne 170 permet d'ouvrir 
le fichier ADRESSE.FIC 
..en lecture. A la ligne 190, le 
programme demande à 
l'utilisateur de donner le 
numéro d'enregistrement, NE 
. La prochaine étape consiste 
à tester si le numéro 
d'enregistrement NE est égal 
à zéro. Si c'est le cas, le 



' fichier est fermé. La ligne 210 
permet de lire 

l'enregistrement. Attention, 
n'oubliez pas que ENR$ 
:ontiendra le nom, le prénom, 
l'adresse, le code postal et la 
ville. 

La seule difficulté qui peut 
survenir dans la lecture d'un 
fichier relatif est la lecture 
i'un numéro d'enregistrement 
qui n'existe pas. Si c'est le 
;as, une erreur est générée. 
C'est justement dans le cas où 
:etle situation se produit que 
l'on a écrit une gestion des 
erreurs. 



Lecture 

Relatif" 



d'un fichier 



Un fichier relatif peut être lu 
de deux manières différentes: 
Soit en lecture séquentielle, 
soit en lecture "RELATIF'. 
Nous allons lire de façon 
séquentielle le fichier que 
nous venons de créer. Pour 
:ela, nous allons taper un petit 
programme ( cf listing 1.3). 
La procédure d'ouverture du 
fichier est déclarée en mode 
séquentiel, le terme 

'RELATIF" n'est pas précisé. 
Dans ce cadre, la lecture du 
fichier est en tout point 
similaire à une lecture 




100 

110 lit FIC REL LECTURE B 

120 !BHBJiniint!nBCJfflBiiHBni!acnn)inarannat]ajtJi 

130 CLS 

140 ON ERRQR 300 

170 OPEN Q1, "2. ADRESSE. FIC", RELATIVE, INPUT 

180 CLS 

165 LXATE (10,1) 

190 INPU7 "N ENREGISTREMENT : ";NE 

200 IF N£=0 THEN 290 

210 INPUT 01, SEC NE,Nt,P*,A*,CF*,U»,D* 

220 PRINT N» 

230 PRINT p$ 

240 PRINT At 

250 PRINT CM 

260 PRINT V% 

270 PRINT D$ 

275 ACCEPT BEEP UALIDATEC'NUHER'IC'lSIZEdiNULLfO),! 

280 GOTO 180 

290 CLOSE B1 

235 END 

300 CALL ERRfCOOE, TYPE, FICH, UNE) 

310 IF TYPEO? Th£N RETURN 290 

315 PRINT "ENREGISTREMENT INEXISTANT" 

317 PAUSE 

320 ON ERROR 340 

330 CLOSE 01 

340 RETURN 130 

Ligna 140 : Traitaient das arr-aurs 

Lignes 170 : Ouverture du fichier ADRESSE.FIC en node lecture' 

Ligna 180 : Introduction du nuaara d'anragistranant 

Ligne ZOO : Test sur la valeur du nutero. Tapez pour fin 

Ligna 210 : Lactura da l 'enregistrement 

Lignes 220-275 : Affichage des informations 

Ligna 280 : Renvoi a la ligna 180 

Ligne 230 : Ferneture du fichier 

Lignas 300-340 : Gastion -las arraurs 

Ligne 310 : Si I 'erreur ne provient pas d'un enregistrement 
inexistant, alors retour a la ligne 290 

Lione 320-340 : Ferneture du fichier dans le BASIC 



séquentielle. Vous 

remarquerez que la lecture 

s'effectue sans avoir à 

préciser le numéro 

d'enregistrement. Toutefois, 
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nous sommes dans 

l'obligation de tester la fin de 
fichier ( ligne 150 ) . La ligne 
180 lit l'enregistrement 
ENR$. Une fois 



l'enregistrement lu, il est 
affiché. La ligne 200 permet 
d'arrêter la lecture des 
données jusqu'à ce que 
l'utilisateur appuyé sur la 
touche [ ENVOI ]. n est 
possible de Lire un fichier 
"RELATIF' en mode 
séquentiel; par contre il est 
impossible de Lire un fichier 
séquentiel en mode 
"RELATLF'. 

Utilisation de CALL 
RESTORE avec les 
fichiers "RELATIF" 

La fonction CALL 

RESTORE #LUNO, 

variable peut être utilisée 
avec les fichiers relatifs 
comme avec les fichiers 
séquentiels. Toutefois, le 
résultat de la fonction CALL 
RESTORE est différent 
suivant que les fichiers sont 
écrits sur Exelmémoire ou sur 
disquettes. En effet, 

l'organisation des fichiers 
"RELATIF' sur 

l'Exelmémoire est différente 
de l'organisation sur 
disquettes. CALL 

RESTORE ne peut être 
utilisée qu'en lecture 
séquentielle. 



Différence entre un 

fichier "RELATIF" sur 

Exelmémoire et sur 
disquettes 

Nous avons vu que la grande 
différence entre les fichiers 
séquentiels et les fichiers 
"RELATIF' se situe au 
niveau de l'accès à un 
enregistrement. En effet, 
grâce au numéro 

d'enregistrement ( REC ), il 
est possible de pointer 
directement sur 

l'enregistrement souhaité. 
Dans le processus de création 
d'un fichier "RELATIF', si 
l'enregistrement n° 50 est écrit 
, les quarante neuf premiers 
enregistrements sont créés 
même s'il n'existaient pas 




Ceci est valable pour les 
fichiers "RELATIF" sur 
disquettes. 11 en va autrement, 
faute de place , sur 
l'Exelmémoire. Sur cette 
dernière, le fait d'écrire le 
cinquantième enregistrement 
ne crée pas les quarante neuf 
premiers. Les enregistrements 
sont organisés de façon 
séquentielle. Rassurez- vous, 
même si les enregistrements 
sont rangés de façon 
séquentielle, on peut accéder à 
ces derniers par leur numéro 
d'enregistrement. 
A la lumière de cette dernière 
explication, il faut être très 
prudent lorsque l'on utilise la 
fonction CALL RESTORE 
. Si le fichier "RELATIF" est 
lu de manière séquentielle sur 
Exelmémoire, l'utilisation de 



CALL RESTORE permettra 
de pointer sur 

l'enregistrement précisé. Si 
par exemple, vous écrivez: 
CALL RESTORE #1,2, vous 
pointerez sur le deuxième 
enregistrement du fichier. 
Ceci n'implique pas que ce 
soit l'enregistrement dont le 
numéro est 2. 

Si le fichier "RELATIF" est 
sur disquette, l'utilisation du 
CALL RESTORE ne pose 
plus aucun problème et vous 
êtes sûr de pointer sur le 
numéro d'enregistrement 

spécifié dans CALL 
RESTORE. 



Utilisation 
EOF 



de CALL 



La fonction CALL EOF 
#LUNO, variable peut 
être utilisée aussi bien avec les 



fichiers "RELATIF' qu'avec 
les fichiers séquentiels. Tout 
comme pour les fichiers 
séquentiels, cette fonction 
retourne dans variable le 
nombre d'enregistrements 

restant à lire dans le fichier. 

Quelques exemples 

de fichiers relatifs 

Tous les fichiers séquentiels 
peuvent être adaptés en 
fichiers "RELATIF', 

néanmoins, on n'utilisera un 
fichies "RELATIF" que dans 
des cas bien précis, 
notamment si le fichier 
nécessite une mise à jour 
quasiment quotidienne. Nous 
allons vous donner un 
exemple d'application faisant 
intervenir un fichier 

"RELATIF" avec sa mise à 
jour. L'exemple que nous 
vous proposons est un 
programme qui gère le 
championat de première 
division de football. Les 
fichiers qui seront manipulés 
sont des fichiers de type 
RELATIVE. 



L'application que nous vous 
proposons est un programme 
de gestion de championnat de 
football de première division. 

Ce logiciel permet la gestion 
des meilleurs marqueurs du 
cliampionnat. 

Ce logiciel utilise 

l'Exelmémoire pour stocker 
les fichiers. Les fichiers sont 
de type RELATIVE 



FOOT 



c i ]■■ 

C 2 1" 
[ 3 ]" 
l 4 ]" 
C 5 ]" 

t e r 

r att*w> t 7 ]" 
r iJtftnst [ 8 ]" 
t 9 r 



, M 2.EDUIFES",Rafin^,[)UIFtJT,UfiRIflEL£ 50 



1 QIHR<20,2).T(ro>,Vl<:o> 

10 as 

30 LOCATE (1,161:PRINT ''FOOTBALL" 

«0 LOCATE (4,3>:FRINT "Cr^tion ESUIFE5 

50 LOCATE (6,3):PRINT "Création JOUEURS 

60 LOCflTE (8,3):FRINT "Cr-jation RENCONTRES 

70 LOCflTE (10.31 :FRIWT "Ci- talion BUTEURS 

80 LOCATE <12,3>:PRINT "Classant ftsiaral 

30 LOCflTE (14,31 :FflINT "El assènent buteur* 

100 LOCflTE MS,3>:F1!INT T lassant iwillîu 

110 UXflTE (1B r 3î:FHINT "Classtatnl ■c-iIIcl 

120 LOCflTE (20.3):FRINT "Fin 

130 LOCATE (22,31 :ACCEF'T 6EEF WLIDflTE(NUHERICISIZE(1)«ULL»),C 

1(0 IF C=0THEN 130. 

150 ON C GOTO 200,400,600,800,1000,1400, 1300,2200,160 

155 GOTO 10 

160 as 

170 ON ERROR 130 

180 aOSE I!1:CLDSE D2:aOSE M:aOSE H4 

130 EU) 

200 as 

210 OFEN D 

220 I=IM 

225 LOCflTE M3.Z):FRINT "Non EDUIFï : " 

227 LOCflTE M3,15):ACCEFT EEEF UflLIOflTE(flLFHfl)SIZE(25)NULL("» n ),N* 

229 !tt(I>=*t 

223 FOR J=1 TO 1-1 

230 IF V»(J)=NITHEN 225 

231 NEXT J 

235 IF N*='VTHEN 270 

210 HG,*.HJt,EN,BE r GO.P=0 

250 F-R1NT H1.REE I, NI;", ";HÇ : ". '■;*;■ .-;;*);", ";fN;", ,, ;E:E;",'-'lGOl",";f 

255 as 

260 GOTO 220 

270 aosE m 

290 GOTO 10 

iooas 

«1 1=0 

402 ON EPROR 10500 

dOd OPEN «2, '■2. JOUEURS", RELAÎ 1WE , I NPUT , VARIABLE 50 

406 ON ERROR 10600 

408 1=1.1 

410 INFUT D2.FEC I,NI,P*,AJ,EJ 

412 GOTO 409- 

415 i 

420 LOCflTE no,î>:FT<lNT "Non : " 

425 LOCflTE ( 1 . 8 1 : ACCEFT EEEF VALtOATE(ALFMfllSUE{20)NULiC' "J.NJl 

d27 IF NJ1=" "THEN 500 

429 IF 1=0 THEN 430 
d29 GOTO 10700 

430 LOCflTE I12,2):FRINÎ Tr-jno* : " 

433 LXATE ( 12, 1 1 ) :ACCEFT EEEP VALIDflTE(ALPHfl)SIZE(15)WULL(". M ),FJi 

437 IF PJ*=VTHEN 435 

440 LOCflTE (1d,2)rPRIMT "Age : " 

445 LOCflTE (14,8>:AIXEPT EEEP UflLlCATE(Nl|[1ERIC)SIZE(2)NULL(0>,AJ 

447 IF flj=0 THEN 445 

448 IF AJ(15 OR flJ>50 THEN 145 

449 IF 1=0 THEN 10800 



450 OPEN K, p 7.JCIJEUœ%BEUn«,«FFEND,VflRIft6LE 50 

dEO BJ=0 

4G7 1=1*1 

d70 FRINT B2.REC I,NJ$;"," i PJ»i ,, ," i AJ;"," i BJ 

475 as 

477 aOSE B2 

480 GOTO 415 

500 GOTO 10 

600 OS 

620 LOCflTE <10,2);FftINT "No. Equipe î " 

625 LOCflTE (10,1S1:flCCEPT EEEF WLIDATE(flLFHfl)SI2E(20)NUl(- "),NI 

627 IF Ni=" "THEN 700 

628 GOTO 10200 

630 LOCATE (12,2):PRINT "Nbr but «arque : " 

635 LOCflTE (12,19):flCCEPT SEEP WLI0flTE(NlJ«ERIC)SIZE(2)NLLL(20),B«I 

637 IF BMI=20 THEN 635 

640 LOCATE {14,2>:FRINT "Nbr but jncaisss r " 

645 LOCflTE (11,211 ;flCCEPT EEEP UAiI0ATElNUIOIC)SIZE(2)MJLL.i20) l 6£I 

647 IF EEI=20 THEN 645 

650 f'RI=em-ÊEI:IF PfiDO THEN PRI=2 

652 IF FR[=0 THEN FRI=1 

655 IF PRKO THEN PRI=0 

656 ON ERROR 10FJ50 

S57 OFEN W/^. RENCONTRE", AFPEND,YARIAEt£ 40 
660 PRINT î3,N*;",":B«I; , ',";eEI:' l ,":Fm 
662 aOSE D3 

665 as 

670 GOTO 620 

700 GOTO 10 

BOO CLS 

010 OPEN M, "2, 6WEURS",0inF1JT, VARIABLE 30 

ii?'I .JJMÎE i'10,;);PRINT "No* .joueur : " 

B25 LOCATE (10 14):ACŒPT BEEF' UALI0ATE(flLPHfl>SIZE(20)NULL(" ">,NJ* 

827 IF NJ«=" "THEN 870 

B40 LOCflTE <12,2):F*INT "Nbr tut iwraue : " 

845 LOCflTE M2,1S):ACŒPT EEEP MLIDATE(NUMRIC)5i:EI2)NLLLCQ>,BJI 

B47 IF 8JI=0 THEH 845 

850 PRINT ■J4,«J*; ,, ,";EiJI 

860 GOTO 820 

865 as 

870 CLOSE 04 

880 GOTO 10 

1000 CLS 

1007 ON ERROR 1700 

1010 OFEN B3, "2 .K-ENCOHTRE" , I WLTT , VARIABLE 40 

1012 CflLL EOFH,A 

1015 IF A=0 THEN 1075 

1020 INFUT H3,NJ*,BHI,BEI,PRI 

1022 GOTO 10400 

1025 INPUT B1.REC I,N*,MG,HP,HN,Brl,EE,GQ,P 

1030 E£M=E*I*E*1I 

1035 EE=BE.BEI 

1040 GO=EM-EE 

1045 P=f iffil 

1050 IF PRI=0 THEH rF=ff >1 

1055 IF FRI = 1 THEN i*=NN.1 

1060 IF Pfil*2 THEN MG=tti1 

1065 PRINT m.REC I,NI;", ,, jNG;",":Wj", ";MN;", " ;£*»;"' . " fEE; " ,*' ;G0 j " , " ;l 

1067 aOSE H 



1070 GOTO 101? 

1075 CLOSE B3 

1060 DELETE "2. RENCONTRE" 

1085 HE=0 

10» OPEN BI/^.EOUIPES'VINF'LT.VARIAFiLE SO.RELATIVE 

1095 ONERRtt 3000 

1105 NE=N£t1 

1110 INPUT B1,REC FC.W,rtG,MP,MN,F«,BE,GC,P 

1115 GOTO 1105 

1123 OPEN B1,"2. EQUITES", RELATIVE, MUT, VARIABLE 50 

1125 FOR 1=1 10 * 

1130 INPUT B1,REC I,N*,HG,HP ,HN,W,PE,EQ,P 

1135 Ra.1>=F':R<I,2)=G0 

11*0 t(n=r 

11« P,GG=0 

11dS NEXT I 

11*7 CLOSE ai 

1150 FDR 1=1 ÎONE-1 

1155 IF* R(ni>,1)>R(TU.1),1)THEN 1173 

UEO IF R(T(n,1)OR(T{If1>,1ÏTHEN 1170 

11E5 IF R(T<I>,2)>=fi<HMI,;>rHEN 1175 

1170 X=T<I):T(b-nitl>;TUt1) = X 

1175 NEXT I 

11B0 FOR J=1 10 NE-1 

1185 IF Rinj),1»Rtr(Jt1),1)THEN 1150 

■ ■ ■:.J),1)<=R(T(Jt1),1>IWN IF RU<J>,2HR(T(J.1),2>Tl€N 1150 
1190 NEXT J 
113* CLS 
1135 LOCATE (10 r *):FRIHT "Edition 5ur inpr inante CD/NI : " 

1196 LOCATE (10,35):ACCEPT BEEF VALIDATECWlFjIZEll) ,W 

1197 IF W="0"THEN 7000 

1200 OFtN m, ,, 2.E0UIFES , ',RELflTHt,IH : UT,WF'IfleLE 50 
1205 CLS 

[=1 TO NE 
1235 INPUT 111, REC TU!,NI,HG,ff',KN,E:H,F>:,GO,P 
12*0 LOCflTE {6tI,1>iFHINT 1 
12*5 LXATE (&tI,*):FRINT NI 
1250 LOCflTE iEtI,19):F«INl HE 
1255 LOCATE (6*1,22* :F'F:INI MF 
1260 LOCfiTE (6iI,23):PRINT UN 
1265 LOCflTE (E*I,28):PRINT m 
1270 LOCflTE <6.I,32>:PRINT Et 
1275 LOCflTE (Et 1,35) :FftINT GO 

Ktl (6tI,38):FRINTF 
12B2 NEXI I 

1265 flCCEFT ££EF VALIOATEC "ISIZEID.W 
1290 CLOSE «1 
1235 GOTO 10 
«00 CLS 
1405 OPEN a: 
«07 ON ERRI 
1*10 OPEN Bu, „„ 
«15 CALL EtJFBiA 
1*17 IF A=0 THEN 1*55 
«18 C=0 

1*20 INPUT B4,HJI»,BJI 
1*25 C=C.1 

1*30 INPUT B2,REC C,MJ*,F'J*,W,BJ 
1*35 IF MJI*<WJ*THE» 1*25 
1**0 FjJ=BJtPJI 

1**5 FKINT F2.REC C,MJt;" T " ;FJl;",";flJ j"," fBJ 
1**7 hJ11="":NE.BJT=0 
1*50 GOTO 1415 
1*55 CLOSE H?:CLOSE U 
«60 DELETE "2.BUTEURS" 
«65 C=0 

«70 OPEN BZ/2.J0UEURS",RaATIVE,INFUT, VARIABLE 50 
1*75 ON ERROR 4000 
«60 C=C1 

«85 1NFUT J2.RE: C,HJt,FJ»,AJ,BJ 
«90 GOTO 1*80 

1500 OPEN &2,"2.JC<JEUŒ\RELATM T lNPUT,VflRTABLE 50 
1505 FOR 1=1 TO C 
1510 INPUT «2, REC 1 , MJt , P Jt , AJ , EU 
1515 RU,D=ejTT(I)=I 
1520 8J=0 
1525 MIXT I 
1530 CLOSE B2 
1535 FOR 1=1 TO C-1 

1540 IF R(T11),1)!=R(T(1.1),1)THEN 1550 
15*5 X=T(I):T<f)=T!I.1):HI.1>=X 
1550 NEXT I 
1555 FOR J=1 TO C-1 
15E0 IF ft(riJ),1)(Rn<J(1>.in>CN 1535 

1565 NEXT J 

1566 CLS 
■ ■■■'L i10,*):PRINr "Edition sur imprimant». TQ/N] : 

1568 LOCfiTE < 10,35): ACCEFT FJEEF UflL IOflTEf "OH" >SI ZE( 1 > , « 

'569 IF W.="(VïNEN 8000 

1570 OPEN B2,"2.JtlJEUKS",F£LflTIVEJNFlJT,VARIABLE 50 

1575 CLS 

1580 FOR 1=1 TO C 

1585 INPUT H2.REC T<I),NJt,PJ»,AJ,BJ 

1587 IF 6J=0 fHEN 1620 

1590 LOCflTE <E*I,1>tF*INT NJt 

1535 LOCfiTE (6*1,18) îFRIOT F Ji 

1600 LOCATE (E.1 ,30> :IPiNI A J 

1610 LOCATE I6.I.33);F*INT EJ 

1615 NEXT I 

1620 ACCEF'T EtEP VALIDATEC "ISIZEID.W 

1625 aoSE B2 

1630 EOTO 10 



2. JOUEURS". RELATIVE, UFfJATE.VARIflBLE 50 
1650 
"2.FJUTEURS",INPUT,UARIfl8LE 30 



5 LOCATE <10,5>:PRINT "Fichier BUTEURS non cr» 
7 flCCEPT 6EEP UALIDATEC ")SIZE(1>,W 

C ON ERROR 1690 

5 CLOSE B2:aOSE B* 

RETURN 10 

CALL ERR(COŒ,TïFE,FICH,LINEI 

5 IF LINEO1010 TIEN RETURN 160 

o as 

S LOCflTE (1(L1):FRINT "Fichier RENCONTRE non c 
ACCEFT EEEP UALIDATEC 1 ">5IZE<1>,H* 

5 ON ERROR' 1735 
CLOSE B3 

6 RETURN 10 



5 INPUT m, REC N£,Ni,MG,MF,MN,F:h,eE,GO,P 

GOTO 1820 

G OPEN B1,"2.E0UIPES". RELATIVE, INPUT,UARIA£LE 50 

FOR 1=1 TO NE 

5 INPUT B1.REC I,N*,i1G,*lF,rtN,[:F1,E'E,G0.P 

R(I.1)=eF1 l R(I,2)=G0iT(lf=I 

15 RH.KM) 

NEXT I 

5 CLOSE B1 

'0 FOR 1=1 10 NE-1 

'5 IF R<T(I),1l>R(TUi1),1)TI*N 1BS5 

10 IF RU(I! r 1H>RU(I.lf,1)THEN 1830 

E IF RiTa).2)>=R(T(I ( n,2)THEN 1835 

)0 ■<=T(I):T(t>=T<It1ï:ï(I+1>=lt 

35 NEXT I 

10 FOR .1=1 TO NE-1 

>5 IF R(TUJ,1MR<T(J.1),1)TFO 1FJ70 

17 IF RfT(Ji,1)(Ra(Jt1t,1)THEN IF fi(TU) ,2><=«<TtJt1),2>THEN 1870 

10 NEXT J 

11 CLS 

12 LOCflTE (10,*HrTOH1 Edition sur iiipr liante CQ/NI : " 

13 LOCflTE 110,35):ACC£PT E6EP VALirjATE<"0N")SIZE(1),l*l 
U IF «= , '0 , 'THEN 9000 

15 OFtN B1,"2.E0UIPES",RELATIUE,INF1IT,l-ARIflRLE 50 

m as 

■5 FOR 1=1 TO NE 

» INPUT m, REC T<I),Wt,NG,HF,MN,FjM,BE,GO,P 

15 LOCfiTE IÊtI,1l:PRLNI I 

10 LOCATE (6tI,*):fRINl NI 

i5 LOCfiTE (6tI,28>:PRINT EH 

» LOCflTE (EtI,32):PRINT GO 

15 NEXT I 

!0 ACCEPT 6EEP VALIDATEC 1 "ISIZEfD.KI 

5 CLOSE 11 

'0 GOTO 10 

»as 

)5 OFEN BI/î.EQUIFES 1 , RELATIVE, INF-UT.VARIAEU 50 



NE=NE>1 

"5 INPUT B1,R£C NE,N 

GOTO 2220 

6 DPEN BV^EOUIFES", RELATIVE, INF'UT, VARIABLE 50 

FOR 1=1 TO NE 

5 IMFUT SI, REC l,N*,NG,HF',m,Er1 r RE,G0,P 
R<I,1)=ë£:RU,2)=G0if'I> = I 

6 FjE.GCM) 
NEXT I 

s aosE 11 

FOR 1=1 10 NE-1 
■S IF R(T(I),1KR(T(I>' 
IF R(I(n,1X)R(HIi 
5 IF R(T(I) 2)Ï=R(T(I. 



l,NG,HP,MH,BH,ÈE,EO,P 



nufti :;t- 

DTHEN 2290 
■ . ■ 



2290 X=T(I>ïT'I!=T'I.1>:TU. 

2235 NEXT I 

2300 FOR J=1 TO NE-1 

2305 If R<T(J),1>)R<T'J.1',HTHEN 2270 

2307 IF Rtnj>,1>=R(TIJ.1),1>TF€N IF R(T!J),2KR(T(Jt1),2)T}£N Ï270 

2310 NEXT J 

2315 DPEN M, M 2. EQUIPES", RELATIVE, INPUT, VARIABLE 50 

2316 CLS 

2317 LOCflTE MO,*):PRINT "Edition 51 iï imprimanlf CD7NI : " 

2318 LOCATE (10,35): ACCEFT EtEF' VALIDATE("B(")SI2E(1),« 
231S IF W="0"THÊN 10000 

2320 as 

2325 FOR 1=1 TO NE 

H1.REC T(l),N»,HG,«-,HN,EW,EE,GO,P 
2335 LOCATE <E>* 1, 1 > :PRINT I 

23*0 LOCATE <6iI.4):PRINT N» 
2345 LOCflTE 16.I,28!:FF-INT FJE 
2350 LOCATE (EtI,32);PRINT EO 



2370 CQTO 10 

3000 CflLL ERR(CODE,T , rPE,FICH,L!NE) 
3005 IF LIWEO1110 TF6N FfETURN 160 
3010 NE=HE-1 

3012 ON ERROR 3015 

3013 aost B1 
3015 RETURN 1123 



4000 CALL ERR(COCE r TYF'E,F]CH,LINE> 

4005 IF LINE014B5 THEN RETURN 160 

4010 C=C-1 

4015 ON ERROR 4025 

*020 CLOSE H2 

4025 RETURN 1500 

5000 CflLL ERR<moE,TYFE,FICH,LINE> 

5005 IF LINE01B25 THEN RETURN 1E0 

5010 ME=NE-1 

5015 ON ERROR 5025 

5020 CLOSE B1 

5025 RETURN 1B35 

6000 CflLL ERR(CCŒ.TYFE r FICH,LINE) 

-■■ :■ . ;■■ 

6010 NE=NE-1 

6Q1S DN ERROR 6025 

6020 CLOSE Ï1 

6025 RETURN 2235 

7000 CLB 

7005 DPEN B5,"20",OUTFUT,VARIA6LE BO 

7010 «"ViBWTH"!".») 

7015 PRINT B5 J TflE(24)[ l, tlJiSSEtïHT GENERAL" 

7025 FOR [=1 fo 10 

7030 FRINT H5 

7035 NEXT I 

7040 PRINT B5.EJI 

7045 Ct="«CLAS. TOU . HG « HP < MN l BH * BE « Gû . PT « 

7050 PRINT «5, Cl 

7055 PRINT 115, Bl 

7057 PRINT 15 

7060 OPEN B1,"2.EQUIFES" r RELATIV£,INPJT,WKIA6LE 50 

M TO* 
7070 IHFtIT 111, REC T<I),N«,ftG,HF',MN,FjH RE,GQ,F 

I :;1AB(38>:HP;T*<43>;HN; 
70B0 PRINT G5,TA&U8>;E*;lAÉ<53> : E:E;TftB(58>;G0;TAB(63):P 
70B5 PRINT H5 
70B7 NEXT I 
70B9 PRINT 115,61 
7030 CLOSE B5:CLDSE B1 
7035 GOTO 10 
8000 CLS 

8005 OPEN 115, "20", OUTPUT, VARIABLE 80 
8010 M="»"iBt=fiPTt<"«",66> 

■'■■■■■ ■ " ' : - 

M fO 10 

8030 PRINT B5 

8035 NEXT I 

80*0 FRINT R5,B) 

8045 «^«CLAS. NOM * PRENOM « AGE . Nbr buL »" 

B050 PRINT H5,Ct 

8055 PRINT B5,B1 

B060 PRINT B5 

8065 OPEN H2,"2.J0LtlJRS",RELflTHÇ,INPUT,UAfiIAELE 50 

B070 FOR 1=1 TD C 

B075 INFUT (2.REC T(I),NJ1,PJÏ,AJ,BJ 

8077 IF ËJ=0 THEN B0S2 

8080 PRINT H5 r Tfle(3);I;TAB(3);NJt;TA8(33) ! fJi i T(«(49)iAJ i TAB(S8);BJ 

B08S PRINT 115 

8030 NEXT I 

B032 PRINT 15 

B0S5 PRINT «5,B* 

8096 CLOSE B2:CLGSE 115 

B097 GOTO 10 

9000 as 

3005 OPEN B5, "20" T OUTFUT, VARIABLE 80 

3010 A*=V':6l=fiPTI<"*".£]> 

3015 PRINT M5,TflB(9);"CLASSENENT / ATTABLE" 

3020 FOR [=1 TO 10 

3025 PRINT OS 

9030 NEXT I 

3035 PRINT B5.B* 

9040 Ct="«CLAS. EQUIPE • BUTS i CO *" 

3045 PRINT «5, CI 

3050 PRINT 115,6* 

3055 PRINT B5 

3060 OPEN B1,"2.E0UIFES", RELATIVE, INFUT, VARIABLE 50 

3065 FOR 1=1 TO NE 

3070 INPin H1, REC T<1),N*,MG,MF,W,BM,BE,G0,F 

3075 PRINT ll5,TAe<3>;I;TAe<8);Ni;TA8<33>;Bt1;TAË{39>;G0 

3077 PRINT B5 

3080 NEXT I 

9082 PRINT H5.B1 

3085 CLOSE B1:CL0SE B5 

3030 GOTD 10 



.- . :ét=RFft("*"i3) 
10015 PRINT «5,TAe(12)i' , tLASSEMENT / DEFENSE" 
10020 FOR 1=1 fo 10 
10025 FRINT H5 
10030 NEXT I 
10035 FRINT B5.B* 

10040 Ct=".CLAS. EQUIPE • BUTS > GO «" 

10045 PRINT H5,C» 
10050 PRINT 115,61 
10055 PRINT B5 
10057 CLOSE 111 

10060 OPEN B1,"2.E0UIFES",RELATIVE,INFUT,UARIA6LE 50 
10065 FOR 1=1 TO NE 
10070 INFUT B1,REC T(I),N*,rtG,Hf',!W,BM,Ef ,GO,P 

10075 PRINT !5,T«(3)[ItT«TO|llliTfe(33):BE TfW3B)(GD 

10060 PRINT B5 

100B5 NEXT I 

10030 PRINT «S, M 

10035 CLOSE (1:CL0SE 115 

101 00 GOTO 10 

10200 OPEN B1, "2, EQUIPES", RELATIVE, INFUT, VARIABLE 50 

102O5 1=0 | 

10210 ON ERROR 10300 

10215 1=1.1 

10220 INFUT m, REC I,NJI,HC,NF,MN BH GE GO P 

10225 GOTO 102)5 

10230 DfEN B1, "2. EQUIPES", RELATIVE, INFUT, VARIABLE 50 

10235 FOR NE=1 TO I 

10240 INFUT B1REC NE,NJt,MG,MF,MN,6M,6E,G0,P 

10245 IF NJi-N»:: 1 - 

10250 NEXT NE 

10255 CLS 

10260 LDCATE [10,2);FRINT "NON EQUIPE INCORECTE " 

10265 ACCEPT EEEP VALIDATEC "ISIZEM ),Wt 

1O270 CLOSE m 

10275 GOTO 620 

102BO CLOSE m 

102B5 GOTO 630 

1O3O0 CALL ERR( CODE, TYPE, FICH.LINE) 

103O5 IF UNE0 10220 TICN RETURN 160 

1O310 1=1-1 

10315 ON ERROR 10325 

10320 CLOSE m 

10325 GOTO 1023Q 

1O400 OPEN m. "Z.EOUIFES", RELATIVE, INFUT, VARIABLE 50 

10405 1=0 

10*10 I=I<1 

10*15 INFUT B1,REC I,N*,KG,HF,MN,ei1,eE GO P 

10420 IF N(=NjiTHEN 10430 

10425 GOTO 10*10 

10*30 CLOSE P1 

10435 OPEN B1 "2. EQUIPES", RELATIVE, UPDATE, VARIABLE 50 

104*0 GOTO 1025 

10500 CflLL ERR(CDOE,TYPE,FICH r LINE> 

10505 IF LINEO404 THEN RETURH 160 

10510 ON ERROR 10520 

10515 CLOSE «2 

1O520 RETURN *15 

10EOO CALL ERR<C00E,TÏFE,FIOUINE) 

10605 IF LINEO410 THEN RETURN 160 

10610 1=1-1 

10615 ON ERROR 10625 

10620 CLOSE B2 

10625 RETURN 415 

10700 OPEN B2 r ' , 2.JOUEltRS",RELATIVE, INFUT, VARIAG1E 50 

10702 FOR J=1 TD I 

1O705 INFUT B2.REC J,NV»,AJ,BJ 

10710 IF Nt=NJ*TMEN f073O 

10715 NEXT J 

10720 CLOSE B2 

10725 GOTO *30 

10730 CLOSE H2 

10735 GOTD 420 

10800 OPEN H2."2.J0UEURS M , RELATIVE, OUTPUT, VARIABLE 50 

10805 GOTO 4M 

10850 CALL ERR(DODE,TÏFE,FICH,LINE) 

10655 IF LINEO60* THEN RETURN 160 

10FJ60 ON ERROR 10870 

10865 CLOSE 13 

EN 13, "2. RENCONTRE", ÛUTFUT, VARIABLE 40 
10875 RETURN 620 
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L'EXLLJASIC comporte un 
certain nombre d'instructions 
qui ne sont pratiquement 
jamais commentées dans les 
manuels d'initiation. Les 
instructions ON ERROR, ON 
WARNING, et le sous- 
progratnme intégré ERR 
permettent de lancer 

l'exécution de certaines 
actions lorsqu'une ou des 
erreurs sont détectées dans le 
déroulement d'un 

programme. Si le warning 
n'évoque pour vous que les 
feux de détresse de votre 
véhicule, nous venons à votre 
secours- Une erreur provoque 
l'arrêt de l'exécution d'un 
programme et un message 
d'erreur est affiché à l'écran. 
Le warning ne provoque pas 
l'arrêt du programme, mais 
néanmoins, un message de 
warning est affiché à l'écran. 
WARNING signifie 

avertissement. 



LES WARNINGS 

Il est possible, grâce à des 
instructions ON ERROR, et 
ON WARNrNG combinées 
au sous-programme ERR, de 
gérer les erreurs générées au 
cours d'un programme. 
Nous allons taper petit 
programme. 



10 INPUT "TAPEZ UN 

NOM:";M$ 

20 L$=RPT$(M$,I00) 

30 PRINT L$ 



Lancez ce programme en 
tapant RUN suivi de [ENVOI 
]. Si un nom de plus de trois 
lettres est fourni, l'exécution 
de la ligne 20 générera un 
WARNING car la chaîne L$ 
comporte plus de 255 
caractères. Un message Err 
36 Line 20 est affiché, mais le 
programme affiche néanmoins 
[a chaîne L$ tronquée au 256 
eme caractère. Le WARNING 
n'a pas interrompu le 
programme. 11 est quand 
même dommage que dans un 
programme, un tel message 
soit affiché. L'instruction ON 
WARNING peut être utilisée 
avec plusieurs options. 

ON WARNING NEXT 

Utilisée avec l'option NEXT; 
l'instruction ON WARNING 
ne tiendra pus compte de 
l'avertissement, et aucun 
message d'erreur ne sera 
retourné. 

5 ON WARNING NEXT 
10 INPUT "TAPEZ UN 
NOM:";M$ 

20 L$=RPT$(M$,100) 



30 PRINT L$ 
40 GOTO 10 



ji vous exécutez ce 
programme, aucun message 
d'erreur n'est affiché. Le 
programme se déroule 
normalement comme si aucun 
waming n'était intervenu. 
Utilisée de cette manière 
l'instruction ON WARNING 
ne tiendra aucun compte des 
warnings éventuels. 

ON WARNING STOP 

C'est le mode d'utilisation 
normal de l'instruction ON 
WARNING. Un message 
d'erreur est affiché, mais le 
programme continue son 
exécution. Lorsque l'EXL 
100 est initialisé, ce mode de 
fonctionnement est prioritaire. 



ON WARNING ERROR 

Cette option permet de traiter 
des messages WARNiNGS 
comme des messages 
d'erreur. De cette manière, les 
warnings pourront être gérés 
dans un sous-programme de 
traitement des erreurs. 

LES ERREURS 

Une erreur provoque l'arrêt 
du programme. Un message 
est alors affiché à l'écran. 
Lorsqu'une erreur survient 
dans un programme, vous 
pouvez décider de l'action qui 
sera effectuée en fonction de 
l'instruction ON ERROR. 
Plusieurs options sont 
disponibles avec cette 
instruction. 

ON ERROR STOP 




les erreurs lorsqu'une erreur 
est détectée. Le sous- 
programme à la ligne 1000 
utilise le sous-programme 
intégré CALL ERR. Ce sous- 
programme affecte à: 

CODE, le code de l'erreur 
TYPE, le type de l'erreur 
FICH, le numéro logique de 
fichier concerné par l'erreur 
LINE, le numéro de ligne de 
l'erreur détectée. 

Ainsi, lorsqu'une erreur est 
détectée, le sous-programme 
CALL ERR permet 

d'indentifier à l'aide de quatre 
paramètres la nature d'une 
erreur. 



C'est le mode de 
fonctionnement normal de 
l'instruction ON ERROR. 
C'est-à-dire que lorsque 
l'EXL 100 est initialisé ou 
mis en marche, ce mode de 
détection des erreurs est 
prioritaire. Lorsqu'une erreur 
est générée, le programme est 
arrêté, et un message d'erreur 
est affiché à l'écran. 

Un message d'erreur est 
matérialisé à l'écran par: 

Err (code ) Linc (numéro 
de ligne) 

ON ERROR numéro de 

ligne 

Utilisée de cette manière, 
l'instruction ON ERROR 
tranfère le contrôle du 
programme vers un sous- 
programme de gestion des 
erreurs situé au numéro de 
ligne précisé après le terme 
ERROR. Lorsqu'une erreur 
est générée dans le 
programme, le contrôle est 
tranféré au sous-programme. 
Le sou s- programme de 
gestion des erreurs peut faire 
appel au sous-programme 
intégré CALL ERR. 



100 ON ERROR 1000 

110 INPUT'DONNEZ UN NOMBRE:";N 

120 R=SQR(R) 

130 PRINT SQR 

140 GOTO 100 

1000 REM GESTION DES ERREURS 

1010 CALL ERR(CODE,TYPE,FICH,LlNE) 

1020 PRINT "CODE=";CODE;" 

";"TYPE=";TYPE;" "; M FICHIER=".FIC;" 

";"LIGNE:"iUGNE 

1030 RETURN NEXT 

RUN [ENVOI] 



Ce programme demande 
l'introduction d'un nombre, et 
calcule ensuite la racine carrée 
de ce nombre. Si un nombre 
négatif est fourni, une erreur 
est générée. La ligne 100 
transfère le contrôle du 
programme au sous- 

programme chargé de gérer 



Traitement des 
erreurs 

Qu'appelle-t-on traitement des 
erreurs ? Le traitement des 
erreurs consiste à déterminer 
l'action la plus propice qui 
sera exécutée lorsqu'une 




erreur est délectée. Par 
exemple, dans le programme 
écrit plus haut, l'introduction 
d'une valeur négative entraîne 
une erreur; le contrôle est 
transféré au sous- 

programme situé à la ligne 
1000, Les quatre paramètres 
identifiant l'erreur sont 
affichés, et le programme 
retourne à la ligne 100. Nous 
pouvons envisager un autre 
type de traitement d'erreur. 
En effet, nous voulons que la 
racine carrée soit affichée. 
Nous savons aussi qu'une 
racine carrée ne peut être 
extraite que si un argument 
positif est fourni. Si 
l'utilisateur donne un nombre 
négatif, la ligne 100 aiguille le 
programme vers la gestion 
des erreurs. Lorsque l'on 
essaie d'extraire une racine en 
fournisssant un nombre 
négatif, le code d'erreur 29 
est retourné. Nous pouvons, 
en fonction de la valeur de ce 
code, décider d'une 

modification dans le 
traitement des erreurs. 
Remplaçons le ligne 1020 
comme suit: 

1020 IF CODE = 29 
TIIEN N=ABS(N) : 

RETURN 130 

Le programme devient alors: 




nombre introduit. De cette 
manière, l'argument de la 
racine carrée sera toujours 
positif, et ainsi, la racine 
carrée pourra être affichée. 

Un sous- programme de 
gestion des erreurs se termine 
toujours par l'instruction 
RETURN. L'instruction 

RETURN peut être exploitée 
de différentes manières. En 
effet, l'instruction RETURN 
lorsqu'elle est exécutée 
retourne le contrôle du 



100 CLS"YVBC":CALLCOLOR ("0WB" 

110 ON ERROR 1000 

120 INPUT"DONNEZ UN NOMBRE:" 

;N 

130 R=SOR(N) 

140 ON ERROR 1000 

150 PRINT R 

160 GOTO 120 

1000 CALE ERR 

(CODE,TYPE,FICH,LIN) 

1010 IF CODE = V) THEN N=ABS(N): 

RETURN 130 

1020 PAUSE 

1030 RETURN 110 



Si le code de l'erreur détectée 
est égal à 29, la ligne 1020 
prend la valeur absolue du 



programme à, ou aux lignes 
déterminées par le choix de 
l'option. 



RETURN NEXT: Une fois 

le sous-programme de 
traitement des erreurs exécuté, 
le contrôle est transféré à la 
prochaine instruction suivant 
la source de l'erreur. 

RETURN numéro de 
ligne Le contrôle est 

tranféré à la ligne précisée 
dans numééigne. de 

Dans le programme ci-dessus, 
uniquement la deuxième 
option est utilisée. 

Ordre d'exécution des 
instructions ON 
ERROR ou ON 
WARNING 

En fonction des options 
choisies après l'instruction 
RETURN qui matérialise la 
fin d'un sous-programme de 
gestion des erreurs, ces 
dernières pourront être 
totalement traitées ou non. En 
effet, lorsqu'une instruction 
ON ERROR est exécutée, son 
activité n'est que relative, et si 
le programme n'exécute pas 
cette instruction, celle-ci est 
inactive, et la gestion des 
erreurs ne sera pas effectuée. 
Autrement dit, regardez le 
programme d'exemple. 

Simulons un passage. 
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Lorsque le programme est 
exécuté pour la première fois, 
dès qu'une erreur est détectée, 
le contrôle est tranféré à la 
ligne 1000. Cette même ligne 
1000 interprète le code 
d'erreur. La ligne 1010 teste 
le code de l'erreur. Si le code 
correspond bien à la valeur 
29, la valeur absolue du 
nombre introduit est affectée à 
la variable N, et le contrôle 
est retournée à la ligne 130. 
Supprimez la ligne 140. 
Introduisez par deux fois des 
nombres négatifs. Lorsque la 
première valeur négative est 
fournie, le sous-programme 
de traitement des erreurs joue 
parfaitement son rôte. 

DONNEZ UN NOMBRE 

:-81 [ENVOI] 
9 



DONNEZ UN NOMBRE 

:-100 
Err29Line 130 

Si la ligne 140 est supprimée 
et qu'une valeur négative est 
fournie pour la deuxième fois, 
le programme est interrompu, 
et un message d'erreur est 
affiché à l'écran. En effet, une 
instruction ON ERROR n'est 
active qu'une seule fois. Pour 
que le sous-programme de 
gestion des erreurs 

fonctionne parfaitement, les 
instructions ON ERROR 
doivent être en permanence 
exécutées. La ligne 140 avait 
était écrite dans ce but. En 
effet, une fois que la racine 
carrée est calculée, 

l'instruction ON ERROR 



transfère le contrôle de 
l'exécution au sous- 

programme de traitement des 
erreurs. Le programme 
"repasse" toutes les fois sur la 
ligne 140. 

Comme nous venons de le 
voir, il est possible de 
déclencher des actions en 
fonction des codes ou du type 
d'erreur. Nous vous 

conseillons de toujours 
prévoir un programme de 
traitement des erreurs. En 
effet, il n'y a rien de plus 
désagréable que d'utiliser un 
programme qui "plante" à 
chaque fois qu'une erreur est 
générée. Nous essayerons 
dans la limite du possible, 
d'établir tous nos * 

programmes d'exemples avec 
un traitement d'erreur intégré. 



PAGE BRICOLAGE 



Réalisez des 

extensions pour votre 
EXL 100 

L'EXL 100, contrairement à 
la plupart des ordinateurs 
familiaux, possède une 
caractéristique très 

intéressante: il est très facile 
d'augmenter ses possibilités 
grâce à ses deux 
emplacements prévus pour 
recevoir des cartes 

d'extension. Exelvision vous 
propose déjà actuellement une 
vaste gamme de cartes 
d'extension: La carte 

imprimante parallèle et série, 
Exe I modem, Exeldrums, 

Exelmémoire, horloge temps 
réel, et décodeur ANTIOPE. 
Mais les applications 

possibles de l'EXL 100 sont 
illimitées, et certains 

utilisateurs peuvent avoir 
besoin d'interfaces très 
spécialisées. On peut imaginer 
des cartes d'interfaces 
analogiques, des cartes 
spécialisées pour les 
radioamateurs ( CW, RTTY, 
SSTV ), des cartes de 
commandes de robots, de 
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radiateurs électriques, des 
cartes de synthèse musicale, 



Notre but est de vous 
expliquer de façon détaillée la 
manière de relier vos 
extensions sur les connecteurs 
situés à l'arrière de votre EXL 
100. Nous verrons pour 
commencer, le connecteur 
d'extension d'Entrée / Sortie, 
le plus grand des deux. ( celui 
de gauche ) 



1. Brochage du 

connecteur et liste 
des signaux 

Ce connecteur comporte 2 x 
25 broches au pas de 2,54 
mm. Il est particulièrement 
prévu pour réaliser des 
extensions d'entrée / sortie, 
par opposition à des 
extensions de mémoire. En 
effet, le bus d'adresses ne 
sort pas sur ce connecteur, 
mais deux signaux de 
validation correspondant à 
deux adresses sont présents. 
En parcourant la liste des 



signaux ( fi g l ), on reconnaît 
le bus des données ( DB7 à 
DB0 ), des signaux de 
contrôle ( R / W r 
CLOCKOUT, ENABLE, 

ALATCH ), et des 

alimentations ( + 5V, -5V, 
+ I2V, -12V ). La présence de 
ces alimentations symétriques 
sera très appréciée par les 
réalisateurs d'interfaces 

analogiques, puisqu'elles 

permettront d'alimenter 

directement des amplificateurs 
opérationnels. Les broches 
Bl à B25 sont situées du côté 
des composants. Les broches 
A25 et B25 sont les plus 
proches des connecteurs 
cassette et péri télévision. 

2. Les signaux 

principaux 

Ce sont le bus de données, et 
les signaux de contrôle: 



PEREN1: Peripheral Enablel 

Passe à lorsque l'adresse 
présente sur le bus d'adresse 
est>131. 




du bus de données lorsque le 
signal de validation est 
présent et la conservent 
jusqu'à l'inscription d'une 
autre valeur. 

Puisqu'il y a deux signaux de 
validation disponibles sur le 
connecteur de l'EXL 100, 
nous allons utiliser l'un pour 
le port de sorties, l'autre pour 
le port d'entrées. Ces signaux 
de validation doivent ê tre 
combinés avec ENABLE et 
R/W pour commander 

directement les ports^ 

Grâce à la ligne RSTB, le 



A PEREN2: Pcripheral Enable 
~ 2 

Passe à lorsque l'adresse 
présente sur le bits d'adresse 
csi > 132, 

RSTB: Reset 

Passe à à la mise sous 
tension, ou lorsqu'on appuie 
sur le bouton RESET. 



CLKOUT: Horloge du 

TMS 7020 ( voir figure 2 ) 

ALATCH: Indique que 

le bus de données du TMS 
7020 contient la partie basse 
de 

l'adresse.Le démultiplexage 
étant effectué sur l'EXL 100, 
le bus de données arrivant sur 
le connecteur ne contient plus 
l'adresse basse pendant que 
ALATCH est à 1. 

ENABLE: Ce signal sert à 
valider les transferts à travers 
le bus de données ( voir 
figure 2 ) 

R / W: READ / WRITE 

Indique le sens de tranfert des 
données, vu du côté du 
microprocesseur. 



«-PERINT: 

Peripheral Intcrrupt 

Entrée d'interruption du TMS 

7020 



3 Exemple Cartes 

d'entrées / sorties 
parallèles 

Pour illustrer l'utilisation des 
signaux décrits ci-dessus, 
réalisons le schéma d'une 
carte d'interface comprenant 
huit entrées et huit sorties ( 
voir figure 3 ) . 

Le port d'entrées est constitué 
par un étage tampon à trois 
états ( Tristate buffer ) qui 
permet de n'envoyer les 
signaux externes sur le bus 
des données que lorsque le 
signal de validation est 
présent. 

Le port des sorties est 
constitué par des bascules ( 
D ) , qui prennent la valeur 



port de sorties est mis à zéro à 
la mise sous tension, ou 
lorsqu'on appuie sur la touche 
RESET. 

L'utilisation d'une telle carte 
est extrêmement simple. 

En BASIC: 

CALL POKE (305, A) 

Envoi d'une valeur sur le port 
de sorties 

CALL PEEK (306,A) 

Lecture d'une valeur sur le 
port d'entrées 

En assembleur: 



82 31 MOVP A,P49 

Envoi d'une valeur sur le port 
de sorties 

80 32 MOVP P50,A 

Lecture d'une valeur sur le 
port d'entrées 



4. interfaçage avec le 
monde extérieur 

Le schéma décrit ci-dessus 
n'est utilisable que pour 
communiquer avec d'autres 
équipements électroniques qui 
fonctionnent avec des niveaux 
logiques TTL ( et 5 Volts ). 
Mais, pour commander des 
puissances plus importantes, 
on peut être obligé d'utiliser 
des relais. Si l'on veut isoler 
l'EXL 100 de l'équipement, 
on peut aussi utiliser des 
photocoupleurs. 

4.1 Utilisation des relais 

La figure 4 montre comment 
une sortie du 74LS244 peut 
commander un relais. Le 
transistor permet de faire 
passer, ou de couper le 
courant qui alimente la bobine 
du relais. Lorsque la sortie du 
74LS244 est à zéro, le 
transistor est bloqué, et le 
relais ne colle pas. 

4.2 Utilisation de 

photocoupleurs 

Si le courant à commuter est 
plus faible, on peut remplacer 
le relais par un photocoupleur 
( T1L 111 par exemple ). Un 
photocoupleur est constitué 
d'une LED et d'un 
photolransistor. Il suffit de 
faire passer un courant dans la 
LED pour éclairer le 
phototransistor qui devient 
conducteur. Avec le schéma 
de la figure 5, le transistor est 
bloqué lorsque la sortie du 
74LS244està 1. 



5 Les entrées sorties 
"Série" 

Cinq signaux se rapportent à 
ce mode de transmission: 

RXD 

Received DATA (Réception 
de données) 

TXD 

Transmitted DATA(Emission 
de données) 



DTR 

Data Terminal (Tàrf- 

minal de données prêt) 

DSR 

Data Set Ready (Porte de 
données prête ) 

SCLK 

Sériai Clock (Horloge série ) 



L'initialisation de tous les paramètres de la transmission peut 
être effectuée en BASIC par la commande OPEN. 

10 OPEN #10, " l0.B=a,N=b,S=c,P=d,T=e" 

où a,b,c,d,e représentent des valeurs entières, et B, N, S, P, T 

représentent: 

B permet de choisir la vitesse de transmission selon les égalités 
suivantes: 



Vitesse en Bauds Vitesse en caractères par sec 




110 


10 


150 


15 


300 


30 


600 


60 


900 


90 


1200 


120 


2400 


240 


4800 


480 


9600 


960 


19200 


1920 



N permet de sélectionner le nombre de bits par 
caractère: 

-7 pour 7 bits par caractère ( valeur prise par défaut ) 

-8 pour 8 bits par caractère 

S permet de sélectionner le nombre de bits de stop 

- 1 pour 1 bit de stop ( valeur prise par défaut ) 

-2 pour 2 bits de stop_ 

P permet de sélectionner la parité 

-2 pour parité paire 

-1 pour parité impaire 

-0 pour absence de parité 

T permet de sélectionner le protocole 

de fonctionnement des lignes DTR et DSR. 

-0 DSR est mis au +12 Volts, la réponse doit être DTR au +12 

Volts , . „ „_„ .- 

-1 DSR est mis au -12 Volts, la réponse doit être DTRau+U 

Volts , . . __ n ,™ 

-2 DSR est mis au +12 Volts, la réponse doit être DIKau-lZ 

-3 DSR est mis au -12 Volts, la réponse doit être DTR au -12 

Ainsi pour configurer la liaison pour 300 Bauds, 7 bits par 
caractère, 1 bit de stop, parité paire est DSR au + 12 Volts, on 
devra écrire: 



OPEN#I0,"10.B=2,N= 
7,S=1, P=2,T=0" 

L'émission des données se 
réalise à l'aide de l'instruction 
PRINT# du BASIC. 

SCLK est l'horloge utilisée 
pour la transmission série. Sa 
fréquence est égale à 16 fois 
le débit binaire ( 19200 Hz 
pour 1200 Bauds ). SCLK 
est habituellement une sortie, 
mais peut être aussi une 
entrée, si on utilise une 
horloge exteme. 

6. Les signaux vidéo 
et audio 

Si vous utilisez un 
EXELMODEM, ou une carte 
d'interface imprimante, vous 
avez sûrement déjà essayé le 
mode incrustation du BASIC. 
Il permet d'afficher un texte 
sur une image TV. Tous les 
signaux nécessaires pour 
réaliser des extensions vidéo 
et audio sont disponibles sur 
ce connecteur. 

PERSND; Ce signal 

est relié directement à !a sortie 
"son 1 ' de l'EXL 100. Il peut 
être utilise comme une entrée ( 
carte musicale par exemple ) , 
ou comme une sortie ( vers un 
amplificateur ). 

VIDEOiCesi le signal vidéo 
provenant d'un téléviseur. 

SLLiSignal de synchronisa- 
tion lignes. C'est une entrée si 
le contrôleur d'éeran 



utilisé en mode "Synchro 
Externe" ( Pour réaliser des 
incrustations, par exemple ), 
et une sortie dans le cas 
contraire. 

SCT: Signal de synchronis 
a-tion composite ( ou trames 
). Mêmes remarques que pour 
SLL. Lorsque SCT est une 
entrée, il peut recevoir soit un 
signal synchro composite 

te, soit un signal de synchro 
trames. 

DOTCLK: C'est 

l'horloge "points" du 
contrôleur d'écran. Elle 
permet d'utiliser un crayon 
optique, ou un système de 
digitalisation d'images. 

CL: C'est une entrée qui va 
commander le niveau du 
signal de communication lente 
de la prise péritélévision. CL 
doit être à zéro ou non 
connecté pour que le signal de 
commutation soit à +12 Volts. 

CLSTAT: C'est une entrée 
directe du microprocesseur 
TMS 7020 ( bit 5 du port A ) 
qui est utilisée par le BASIC 
et d'autres logiciels pour 
vérifier que le signal CL est 
bien passé à 1 lorsque l'on 
désire passer en mode 
"incrustation". 

C'est un moyen de 
vérifier que lu carte 
d'extension en place comporte 
bien 

les circuits d'extraction 
de la synchronisation. 



7. Le bus DMA 

Il existe sur le contrôleur 
vidéo ( VDP ) de l'EXL 100 
un bus DMA, fonctionnant 
seulement en entrée. Ce bus a 
été conçu au départ pour la 
réception de données 
ANTIOPE, mais il est aussi 
utilisable pour d'autres 
applications: Digitalisation 
d'image, lecture de CD ROMs 
( compact dise )... 

Rappelons que la technique 
DMA ( Direct Memory Access 
) permet de lire ou d'écrire 
dans la mémoire sans passer 
par le microprocesseur. Elle 
est indispensable lorsque le 
débit des données est très 
élevé. 

Le bus DMA se compose de 
deux lignes HMP et HIZ, et 
de 8 lignes de données ( D0 à 
D7) . Lorsque le périphérique 
veut mettre un octet dans la 
mémoire, il envoie un niveau 
sur l'entrée HMP. Lorsque 
le VDP est prêt à recevoir les 
données, les signaux HIZ et 
CAS sont à 0, et le 
périphérique peut envoyer des 
données sur les lignes D0 à 
D7. Le périphérique doit alors 
repositionner le signal HMP 
au niveau 1. 



Tous les détails concernant 
l'utilisation de ce bus sont 
contenus dans la notice du 
VDP de Texas Instruments ( 
TMS 3556 Video Display 
Processor : User's manual ) 
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Figure 3: schéma de la carte 8 entrées-8 sorties 
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(^) connecteur XI de l'EXL 100 
[>• interconnection sur la carte 



iï_ 



777777 



A. 



iïwm 



Figure 4: utilisation d'un relais pour contrôler un témoin lumineux 
Exemple d'étage de sortie 



t^=R: 




Figure 2 



+5v Rgure 5: utilisation d'un photocoupleur 




connecteur de sortie 



Les astuces des 
programmeurs 



Le premier listage décrit un sous-programme permettant le tri d'un tableau. Le deuxième listage 
vous rendra bien des services. Vous avez sans doute remarqué que lorsque vous utilisiez le 
générateur semi-graphique, il vous de faire un INPUT ou un ACCEPT, même restreint en 
longueur, sans perturber la totalité des 80 caractères qui suivent le début de la saisie. Ce petit sous- 
programme peut se substituer à un ACCEPT ou un INPUT en permettant d'effectuer une saisie 
formatée sans que l'environnement semi-graphique du champ de saisie soit perturbé. En outre, la 
saisie est accentuée et conserve les fonctions CTL S, CTL E, TAB, HOME, DEL, CTL A, etc.. Il 
sera possible de paramétrer les couleurs caractère/ fond, de filtrer les caratères saisis, et de 
supprimer les fonctions superflues. 
Le troisième listage permet de saisir un texte en caratères curvilignes et de l'éditer sur imprimante. 
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-,<> CAI L F'UCF (K1000, 13B, 134 , 130, 113?, 138, 1H4, 1 * 3 , 1 52 , 1 , 1 * , 'I ! 

2B0 CflLl POKElHIOia, 210, 13 P SB,i3,»1,0,B8, 255, 41, 53, 176,207 

7.70 CftLL F'OKEOIOÏÏS, 2*E, 215, 0,33, 231 ,37, 4,130, *e, 10) 

2130 ATTACH RETC.SKIP 



Eftl L EXEC<310ÛQ) 

CALl KE* 1 <K.I.-> 

II- L 1HFN F'=0iGQT0 320 

If 1-1 TIIEN P-P + 1IÏF PME TMKN 320 EJ..5E 370 



*t!0 COl'O 310:1-- Fin gestion curseur __ 

430 IF K-13 THEN CALL BETCî IS-SlBQTB 310 

300 IF K-193 THEN CfiLL EXfLllS*3:G0TI) 310 

510 IF K = 197 OR K = 223 THEN c:ALL CLS: GOTO 310 

520 IF K-133 THEN LOCATE <1,1)iG0T0 310 

330 IF K"211 UR K-Z*3 THEN CALL SKIF' : 15 GiGGTO 310 

540 IF K-2-Û1 THEN CALL IMF'i IS=3 :GDT£> 310 

330 IF K=212 OR K-244 THEN GOSUR 75(> : 1S = 7:G0TG 310 

570 F'RINT CHR*(K) ;:IS-B:G0T[1 310 

530 U=-1 :G310 450 



590 H=1:GOTO 4SO 

600 Y-1iGOT0 430 

E10 H=- UGOTQ 450 

620 CALL RETC:GOT0 1110 

640 GOSIJE: 750iGuT0. 310 

650 PRINT CHRXK); iGDTf) 3I0 

EEO I Dsp Incarnent du curseur 

670 EftLL FEEK<43EI13,C0L F LIG> 

E80 IF COL=40 TMEN CALL RËIC:GuTO 73< 

630 IF LIG>21 THF.N IF l»»1 THEN 730 

700 IF LIG<=1 THEN IF U=-1 THEN 730 

710 IF CDL(=1 THEN IF H--1 THEN 730 

720 LDCATE 1 LIGtV , COL.H ) 

730 P.ETURN 

740 ! TAE: 

750 CALL PEF.Kt49813,C0L.LIG> 
760 EOL=1c10»INT((COL+10>/10) 
770 IF C0L140 THEN G0L=1 1 LIC'LIG* 1 : Il 



930 


CALL F'EFK149ai3,C0L F LIG) 




1120 


PRINT RFT»<" ",41-COL! 
_OCATE (LIG.COL) 
SU6ENH 
SUB MOCKA*. 




1130 
1140 


C»«C»tB* 


,.,,«» 


1160 

11 ,'0 


NEXT 




118C 


SUE: END 




11SC 


SUE IMPI-- Impression Cur- 




1200 


CALL PCEKt4HB13,CuL,LIG) 





1230 K*-CHRt(3lf,) :0*-RPT*IK5*,E) : É:L* = "0BBB9" 



<1 


.15 


""PBL»E'BBE:BBB' 


iL»<2,15l-L»(2,2> 




\] 


16 


»="SBBuË:E:BBBB■ 
^"@L»eE!HDBBB3' 


:L*<2,lB>-"MN_iiirBpD" 




!1 


'l8 


*-"BB8BDDB8BB' 


;L*<2,1B)=L*(2, 16) 




<2 


.20 


-"HN_aaaRE!DD , 
^''BBBEii'l'PBBB 1 


-L*C3,20)="BBPtTH99B@" 
.L*(2,21)=L*(2,16) 




(1 


26 


""0GSBBBBB»»' 
■"BBBBDB8BB8" 


L*(2,2&) = "HHP"îK4*IK5»X"AAE:EiEi 
L*C2.27>="HN aaq'HDO" 




''l 


:î:i 


^''BBPBeOBBBS 1 


L»C2,33)""BIÎBBBuBBBB i ' 




1? 


44 


= "00[><>BGBBPB' 


L4(3 F 44)»"BBBBpBSB0ff" 




\l 


46 


■"'BBLLl LLLBB" 
-"BBBBCCBBBfl" 










= , 'BAGFD[iL'B M :L 


M2,4B>=-"B"JK4*SK5*S"0A«"ÏK 1 4»ï 


B":L 






= "BBAEiGlGB".L* 


2 r *9)-"B"tK*t"8B"ÏK5*XK5»t"a" 








-"BaDOGCB"iL* 


2,50)"="Bco"ïK3»ï"qAB" iL*(3,50 










:,51 >-"L'FDyoFP" : L* (3, 51 >=™L»<3 , 








^"BPCGCGBB":! 


K2,S2)^-"BppF , "tK5»IK5*I"PB"!L* 


3,52 






ïir"eGUQDDB"!L* 


2,53)"""BrqS_LB"iLt(3.53)'L *I3 


431 




54 


="BACFDDCB"iL 










«•"00DuCGB"iL« 


2,55>=="[>CÙ"iK2»j:"pBB":L«<3,55 








^"PCGDLICS"il * 


2,56>="SfyT_f0"iL»(3 r 56)=L»<3 








»"BGDGf CW:\_ 


K2,57)-"PfUGS"llK4»ÏK2*K"9":Lt 


3,57 




58 


-"PSBBBIOBBB" 








53 


-"ePBBBKPBBP" 








E3 


""BBCtiHHDCBB" 


L* < 2 , 63> = , ■^BBB(^Mt.Bae'■ 






65 


»"SB9uF"tKH»I 


3»t"ABB" [L»(2,65t»"FAa"IK**lK 




(1 


66 


-"»BR»ttll»gd 


tK»ï"a - LB":L*(2,66>="DBAC"!Kt 




(i 


66 
67 


«"BLKGOYqoRL" 


Lt(Z,E7>a"BBB"lK2»«K4tt* , Cl'»EIF 




<1 


ES 


-"PLR'"HK*t ,, ga 


SK,H"F-HG":L*(2,eB) = "BFIK M IK4* 


K2»l 




69 


="B»BXdN ehP" 


L»(2,69)-"SBBN yqaJB" 




u 


70 


="MOR"lK*t" p 
-"LRGuYqafiLB" 


IK»I"HRa"iL»£a f 701»"DBQe"tK** 
L«<2,71)^"BB"IK2*ÏK4«Ï"CAA00Ù 


K2fl 




71 


= "90SFIOa"IK4»IKJ*I"B 11 




(1 


72 


=".P"1K*ÏK5»Ï 


5»I , "t_"lK5»ï"bdX" 





t"BAB"lK2» 



1S30 L«(1,74) = "09<PP"iK»ÏK5«tK5«ï ,, B9"iL»<2 F 74) = "88flflBA"lK5*lKa«] 
,»0,74)""»9NQaA' , lK4»ÏK2»ï"BB" 
.»C1 F 75>- , 'xP , 'llMIK5«tKS»t"e_"IK5*IK»i".3X" 
-•12,73>-"FAA"»K5*IK4»IK»IK5*1"_AIF" jL*<3, 75) -RI*l"B" 
„•<1,7E)""BLRA_"lKS»^"aRLB"lL»{^,7B)■■•'eBEE"tK5»lK*»t"flEIF ,, 
_»< 1 77)«"98C)P"Il'.5*IK5*I"8aP"tK5*tK5»l"BBB" 

,»(2 F 77>»"FA 1, lKd*ï ,, B , 'I.K*»ÏK5*t"ft"IK**t"B"lKA»ÏK3«I. ,, flIF"iL* 
_*M ,7B)="BI!0P"IK5»ÏK5»i"BOPb\" 

_*<2,7B)-"FA ,, ^K4»l ,, B ,, lK4*ÎK5*l , 'A ,, IK4*t"Bfl9":L«l3,7B) = RI«i* , 
..»<1 F 73)="flBG0XFdf->HG":L*(2,73>» M B8"lK2«ÏK4»i"CAAAB"ÏK2» 
L*(1.B0>=:"NQR"tK*t ,, go"lK«I"dRL"iL*C2 F 80) = "DFjAA"ltK5*ïK*»î"DI 
L»I1,B1 >-"G0Xp.JbH"lK5»tl'.:)«iL*(2,81)-K2»lK4*I"CAAAB"*K5«K5 
L*C3 r 81 )-"BBfi»9BB"ÏK5»ÏK5« 
L«<1,e2)-"NQR"lK*l"go"lK*» , '■i"'LBBB• , 

1790 L»C2,B2> = "EiBAC"lK4«lK2«ï"8"lK»IK4*ï"_AIF" i L»(3,82 > =RI»I"BB 
L«l1.e3)-L»(1,7B>lL»<2,B3>- , 'BFIA"IK5«ÏK4«l"BB0B" 
L»(1,H4)-"BEIK_ ,, tK3»ï"iJPB" :L»1 2,B4 ^- ,, Befflx , 'lK4tI ,1 CflIRL■■ 
L*< 1 ' 85 >-"Xd" IK*IK5»i" BB9 , 'ÏK5»1K5*1"B8" 

L»(2 85)»"9g9"IK4«IK5»ï"AAB"ÏK4*ÏK5*I"AF"lL«<3,B3>«RI«t"8fl 
L«f1 ,B6)-"X.:J"*K»IK5»l"_9XdT0D"iL»(2,aË)-"BaB"iK2»IK4»l"CAA 

L»<^,a6)"RI»^ ,, B' , 

1860 L1M r B7) = ,, Xd ,, ÏK*tK3»ï"_B"lK5*IK5«ï"BPh_D" 

L*<2,B7) = ,, BBB ,, IK2»4K5»t ,, A ,, ÎK5*IK5*ï"AAB"lK2tCD":L*C3 P S7> = 
1BE10 L«<1 ,8B>«"Sb«_GAG_uûV':L»<2,BB>- ,, NQg"tK4«I"*B>"iK4»I"GON" 
" L^S.BB^RItï'B" 

L*<1 .B^)""X,ï"tK*ÏK5*t' , BBB ,, tK5*IKS«I"B" 

L* < 2,83) »" 898" t^tlH^i-AAS" ÏK5»IK5»K i, 0" 

L»(^ I B9)-' , '8BffBFI0^ , 'IK4*lK2*r'B ,, 

L«(1,90>~"xPFca' , IK3»i , 'qB"iLt(2,30)' , 'co*'lK3»t , 'rCC0H" 

L»(^.^o)-"FIOcO"lK2^ll"pB ,, 

L*(2.95)-' , BBCL-;CCCC8B" 

L»(2,37>="HN aaa"lK4*IK5*i"AF" 

L*l1,3B)- , 'B8Ô_P"tK*t"a _ BB" :L«< 2,3B)-"HH'"lK4*IK5»i"QoIN0D" 

L*<2,93)-"HN_aaaftBDD" 

L*<1.1O0)"'-B8BB9BOOeB":L»(2 r 10O>'L«(2 F a7) 
2000 L«<2,101)-"HN_lllr6DD , ' 
2010 L»<1.102)-L»(1,98) iLt < 2 , 1O2)="HH"1K5»IK5*1"Rb00OÛ" 

L*l3,102>-"BB , '1K2*IK4«Ï-Bfla-BB" 

L»(1,10^)"=RI^lL»(2 F 10^)=• , HN_aaa•'ïK5»ÏK5»I••E;D ,, 
2040 L»!3 F 103) = "89FIOa"lK4*IK2*I ,, e9" 

2050 L*<1,104>=L»<1,9a>IL*C2,104> = '•HH"t^'.5*lK5«t' , Pp"0AF' , 
2060 L«(1 F 105)="8BBLLBBBB9"iL»<2.105>="RHP" ÏK4HK5» t "AABDD" 
2070 L»<1.1O6)-"8BB0BLLBBB" lL«<2 F 106)-"HHHPP"tK5»*K5»l"BD0" 
20B0 L*<3,106)« ,, BFIQa"SK4*ÏK2*I"BBfl" 
2090 Lt(1,107>-L*<1 ,98)iL»(2,107)«' , h 
2100 Lt ( 1 , 10B>=L«l 1 .9B) iL* ( 2, 106 ) ="F 
2110 L«<1,109) ,L»O F 109)=RI»l"8B" 

2120 L»(2 F 103>«"X"tK»tK5*i" "1K«1K5»I , '_"1K»IK4H"_AF" 
2130 ! 

2140 L*(2,110)="X"1K«ÏK5»*"_" IK»tK*lK4*ï"_AF" 
2150 L«(2,111>»"HN„aaq _ H0D" 

2150 L*<2,112)="HP"1K5«IK5»Ï"P"IK»IK***"_AF" 
2170 L*<3.112)«' , B(»"IIK5*IK5«Ï"9BB0BB" 
2180 L*(2,113>- , 'HN_aaa"lK5«tKS*l"BD" 
2130 L*<3,113)-"8BBBBB"lK5*tK5*I"B9" 

2210 LK1.1 15)""BB0BBA9BB8 , 'lt.*(2.115)» ,, HOCiNRau_FD" 

2220 L»(1, 1ie> = "00CEIQFtE:BB9":L«(2,1ie)'»"HF' ,, ÏK«ïK4*IK5»t"AAeBO" 

2230 LI(2,117>i='"HP"IK4*tK5«I ,, AB ,, ÏK4»ÏK5»4 , 'AF" 

2240 L*(2,11B>" ,, HP' , ÏK*ïK4»ï" AArVH" 

2250 L*<1 ,119),L»(3,113)~RIH"B8":L«(2 F 119)-"HP"iK»tK*»I"_A"tK*«ÏK5»f l Ar\l 

2260 L»(2,120>-"HRaa"lK4*ï"_9aRD" 

2270 L»C2 I 121)->"HP"«K**K4*l"_AA"lK5*tK5»I"D" 

2280 L»<3,121)-"BBeFI0«"ïK4«ÏK2*t"9" 

2230 L»<1 F 122>="9BBAB0BBBB" :L* < 2 , 122>="HHYcf oyrDD" 

2300 L«(3,122) = "0BFlQa"lK4»lK2*> "88" 

2310 OPEN 111 ,"20",0UTPUT 

2320 CALL POKE I 3 , 1 3 ) .PRINT 111 

2330 FDR 1=1 TD 22 

23-10 LCICATE (1.1) 

2350 ACCEPT SIZE<-*0),M 

23EiO CALL HOCKA») 

2370 PRINT H1,CHR«(28)f 

2360 FOR T=1 T0 3 l PRINT H1 ,RPT*("9",B0>i iFOR J»1 TO LEN( A* ) lLT*=SEG*l A*, J 

2330 G=ASC<LT») sPRINT U1 ,L* l T F G ) F ! NEXT JiPRINT H1,"B"lNEXT T 

2400 NEXT I 

2410 PRINT ni,"0"[GHR»(Z3» 

2420 CALL P0KE(3,4> 

2i30 CLQSE CULUCATË (LIG.CDL) 



2*80 
2430 


PRINT 


2500 


PRINT 


2510 


PRINT 


2520 


PRINT 


2530 




2540 




2550 


SUEiLNCi 



"|CHR*( 18) 
"|CHR«C21) 
",CHft*(26, 



D 

E 



</> 
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